G'day NewLondonPerl1,

You don't need to iterate through each hash, you only need to iterate through one of them because if the key doesn't exist in one then the condition of the key existing in all three is not met. If they vary substantially in size, pick the one with the least number of keys. The guts of your code will look something like:

for (keys %hash1) {
    if (exists $hash2{$_} and exists $hash3{$_}) {
        print $hash1{$_}, $hash2{$_}, $hash3{$_};
    }
}
[download]

You don't need to sort for the functionality to work. I'll leave you to format the output.