La función
each toma un hash como argumento y devuelve una clave distinta
cada vez que es llamada. Cuando todas las claves han sido visitadas,
devuelve undef.
Veamos un ejemplo:
DB<1> %a = (juan=>5, pedro=>0, marta=>10)
DB<2> print "$a{$n} " while defined($n = each %a)
0 10 5
Casiano Rodríguez León