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