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