Select Code to Download

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

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