DB<3> use feature "state"; map { state $p; print $p;$p=$_} 1..3
12
  DB<5> use feature "state"; for (1..3) {map { state $p; print $p;$p=$_} 1..3}
12312312