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"; }
by_ref(\@array,$v);
print "Array changed: @array\n";
dXNlIHdhcm5pbmdzOwp1c2Ugc3RyaWN0OwoKbXkgQGFycmF5ID0gKDEsMiwzLDQsNSk7Cm15ICR2ID0gMTsKCnN1YiBieV9yZWYgCnsKICAgIG15ICgkYXJyYXlfcmVmLCR2KSA9IEBfOyAgCiAgICBAJGFycmF5X3JlZiA9ICgwLDAsMCk7CiAgICBwcmludCAiQXJyYXkgaW5zaWRlIGJ5X3JlZjogQCRhcnJheV9yZWZcbiI7IAp9CgpieV9yZWYoXEBhcnJheSwkdik7CnByaW50ICJBcnJheSBjaGFuZ2VkOiBAYXJyYXlcbiI7