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