sub counter { state $count = 0; $count++; } #### { my $count = 0; sub counter { $count++; } } #### { my $count = 0; sub counter1 { $count++; } sub counter2 { $count += 2; } }