Select Code to Download

 print map{ $_, "\t" } $key1, $key2,
    $hash1{ $key1 }{ $key2 }, 
    $hash2{ $key1 }{ $key2 },
    $hash3{ $key1 }{ $key2 };
 print "\n";

 print $key1, "\t", $key2 "\t", 
    $hash1{ $key1 }{ $key2 }, "\t",
    $hash2{ $key1 }{ $key2 }, "\t",
    $hash3{ $key1 }{ $key2 }, "\n";