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