{ my $counter; sub inc_counter { $counter++ } }