{ my $foo; sub closure { $foo++ } }