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

##</code><code>##

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