Не хочу сортировать записи.
использование этого также не сохраняет порядок
foreach my $val (keys %hash) { ... }