sub x {
  my($foo) = @_;
  $foo = "in x";
}
my $foo = "outside";
x($foo);