my $me = "old me";
s1($me);
print "$me\n";

sub s1 {
  $_[0] = "new me";
}