my $x;
sub foo { ... $x ... }

sub bar { ... my $x ... }