DB<195> use feature 'state'; for (1..3) { $y=0;while (++(my $x)) { print " $x .";last if $y++>3 } }
 => ""
 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 .
  DB<196> use feature 'state'; for (1..3) { $y=0;while (++(state $x)) { print " $x .";last if $y++>3 } }
 => ""
 1 . 2 . 3 . 4 . 5 . 6 . 7 . 8 . 9 . 10 . 11 . 12 . 13 . 14 . 15 .