each() не работает, если перед ним не вставить, например, join(). Видимо, в хеше есть какой-то вгутри указатель на текущий ключ? Как бы этот указатель сбросить?
===
#join( ':', %h );
while( ( my $key, my $val ) = each %h ){}
===
так примерно не работает
--
http://raigra.km.ru