if (defined $hash2{keys}){
                   ^

##</code><code>##

for my $key ( sort keys %h1 ) {
    say sprintf("%s: %s\t%s", $key, "@{ $h1{ $key } }", $h2{ $key }) if defined $h2{ $key };
}