my $FOO = 'foo';
sub bar { $_[0] = 'bar' }

print $FOO, "\n";
print bar( $FOO ), "\n";
print $FOO, "\n";