use warnings;
use strict;
my @array = (1,2,3,4,5);
my $v = 1;
sub by_ref
{
my ($array_ref,$v) = @_;
@$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";
dXNlIHdhcm5pbmdzOwp1c2Ugc3RyaWN0OwogCm15IEBhcnJheSA9ICgxLDIsMyw0LDUpOwpteSAkdiA9IDE7CiAKc3ViIGJ5X3JlZiAKewogICAgbXkgKCRhcnJheV9yZWYsJHYpID0gQF87ICAKICAgIHByaW50ICIkYXJyYXlfcmVmWzFdIjsKICAgIEAkYXJyYXlfcmVmID0gKDAsMCwwKTsKICAgIHByaW50ICJBcnJheSBpbnNpZGUgYnlfcmVmOiBAJGFycmF5X3JlZlxuIjsgCn0KbXkgQGIgPSBAYXJyYXk7CmJ5X3JlZihcQGIsJHYpOwpAYXJyYXkgPSBAYjsKCnByaW50ICJBcnJheSBjaGFuZ2VkOiBAYXJyYXlcbiI7