DB<168> sub tst (&@) { my $cr=shift; print $cr->($_)," " for @_ }

  DB<169> use feature 'state'; tst {state $i++} 1..3 for 1..3
 => ""
0 1 2 0 1 2 0 1 2