use v5.14; { my $count = 1; sub counter { say $count++; } } counter(); counter(); counter(); counter();