sub x {
  $_[0] = "in x";
}
my $foo = "outside";
x($foo);