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