use warnings; 
use strict;
use feature "state";
testFunc();
sub testFunc {
     state $i = 0;
     $i++;
     print "i=$i\n";
     testFunc() if $i < 4;
}

__END__

i=1
i=2
i=3
i=4