my $foo; sub bar { sub baz { $foo++; } }