Select Code to Download

sub test1 { $a = $_[0]; }
sub test2 { $_[0] = $a; }
...
my @a;
test1($a[0]);  print(scalar(@a), "\n");  # 0
test2($a[0]);  print(scalar(@a), "\n");  # 1