>perl -wE "$i=1; say for $i..$i++   #2"

>perl -wE "$i=1; say for $i..++$i   #3"
2

>perl -wE "$i=1; say for do{$i}..do{$i++}   #4"

>perl -wE "$i=1; say for do{say 'hi!';$i}..do{say 'bye!';$i++}   #5"
hi!
bye!
1

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

>perl -wE "$i=1; say for do{$i?$i:($i++)}..$i++   #7"
1