>perl -wle"@a=1; for ((),@a) { push @a,$_+1; print }"
1

>perl -wle"@a=1; for (@a) { push @a,$_+1; print }"
1
2
3
4
...