use 5.010;
sub blabla {
    state $x = 0;
    say ++$x;
}
blabla;
blabla;
__END__
1
2