my $x = 1;
sub foo { $x }