Select Code to Download

sub name {
   my $arg = ref $_[0] ? $_[0] : \do{my $anon = $_[0]};
...

   return $$arg;
}

sub name {
   our $arg;
...

   return $arg;
}

$i = $j = 'unchanged';
name(\$i);
...
$i = $j = 'unchanged';
$j = name(\$i);
print("i:$i, j:$j\n");  # i:changed, j:changed

sub name {
   our $arg;
...

   return $arg;
}

name($i);                                  # In place
$j = name($i);                             # Not in place
sub test { name($_[0]) }                   # unknown!!!
sub test { name($_[0]) }   test($i);       # In place
sub test { name($_[0]) }   $j = test($i);  # Not in place