{ my $x; sub foo { return ++$x; } }