Select Code to Download

> perl -wle 'my %a = ( 0 => 1, y => 2, z => 4); while (my $m = each %a
+) { print $m }'
y
...
1
> perl -wle 'my @a = ( 0 => 1, y => 2, z => 4); while (my $m = shift @
+a) { print $m }'
>