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