Select Code to Download

my %hash = 1..4;
my $stop = 0;
...
# 1 2
## 3 4
Died at - line 9.

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