use strict;
use warnings;
use Data::Dump qw/pp dd/;
use feature 'state';

my $x = 0;
sub test { warn ++$x; return $x }

for my $a (1..3) {
    print "\n---\n";
    while (state $z = test() ) {
        print "$a:$z\n";
        last unless  $a--;
    }
}

##</code><code>##

1 at d:/Users/lanx/pm/state_loop.pl line 7.

---
1:1
0:1

---
2:1
1:1
0:1

---
3:1
2:1
1:1
0:1