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

##</code><code>##

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