Как оптимизировать двумерный обход хеша в Perl?

У меня есть хеш хешей % signal_db . Типичный элемент: $ signal_db {$ cycle} {$ key} . Есть 10 000 сигналов и 10 000 ключей.

Есть ли способ оптимизировать (по времени) этот фрагмент кода:

foreach my $cycle (sort numerically keys %signal_db) {
    foreach my $key (sort keys %{$signal_db{$cycle}}) {
        print $signal_db{$cycle}{$key}.$key."\n";
    }
}

Элементы должны быть напечатаны в том же порядке, что и в моем коде.