$ perl -le" %f=1..4; while( each %f ){print $g++; } "
0
1

$ perl -le" %f=1..4; while( each %f ){print $g++; keys %f; die if $g > 5; } "
0
1
2
3
4
5
Died at -e line 1.