use strict;
use warnings;

{
my $persistent;
sub myFunc {
    return ++$persistent;
}}

print myFunc();
print myFunc();
print myFunc();