DB<173> use feature 'state'; map {state $i++; print "$i "} 1..3 for 1..3 => "" 1 2 3 4 5 6 7 8 9