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";