Select Code to Download

if (defined $hash2{keys}){
                   ^

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