in reply to updated_again: how to loop through hash tables more efficiently

This is a fairly simple code, but I found to run my code is extremely slow

And it doesn't work :) 

if (exists $lookup{$k1}) {
        print $k2, ",", $k1, "\n";

[download]
is never true, never prints anything

In Section Seekers of Perl Wisdom