sub foo { $_[0] = 'bar'; }
foo($a);
print($a);  # bar