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