Re^3: how to loop through hash tables more efficiently

Then why didn't you show that in your original question?

for (sort keys %tmp) {
    next if @{$tmp{$_}} < 2;
    say join "\t$_\t", reverse @{ $tmp{$_} };
}
[download]

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Comment on Re^3: how to loop through hash tables more efficiently Download Code