D:\Users\lanx>perl -wE "$i=0; say for do{$i},$i++"
1
0


##</code><code>##

 DB<3> $i=0; say for do{$i},$i++
0
0


##</code><code>##

  DB<4> say $]
5.016003