use warnings;
use strict;
my @array = (1,2,3,4,5);
my $v = 1;
sub by_ref
{
my ($array_ref,$v) = @_;
print "printing: @$array_ref[1]\n"; @$array_ref = (0,0,0);
print "Array inside by_ref: @$array_ref\n"; }
my @b = @array;
by_ref(\@b,$v);
@array = @b;
print "Array changed: @array\n";
dXNlIHdhcm5pbmdzOwp1c2Ugc3RyaWN0OwogCm15IEBhcnJheSA9ICgxLDIsMyw0LDUpOwpteSAkdiA9IDE7CiAKc3ViIGJ5X3JlZiAKewogICAgbXkgKCRhcnJheV9yZWYsJHYpID0gQF87ICAKICAgIHByaW50ICJwcmludGluZzogQCRhcnJheV9yZWZbMV1cbiI7CiAgICBAJGFycmF5X3JlZiA9ICgwLDAsMCk7CiAgICBwcmludCAiQXJyYXkgaW5zaWRlIGJ5X3JlZjogQCRhcnJheV9yZWZcbiI7IAp9Cm15IEBiID0gQGFycmF5OwpieV9yZWYoXEBiLCR2KTsKQGFycmF5ID0gQGI7CgpwcmludCAiQXJyYXkgY2hhbmdlZDogQGFycmF5XG4iOw==