DB<1> $i=1; say for do{$i?$i:($i+1)}..$i++   #6
1


  DB<2> q

D:\Users\lanx>perl -wE "$i=1; say for do{$i?$i:($i+1)}..$i++   #6"

D:\Users\lanx>