for my $k (@keys_existing_in_both) {
    my $exec = $hash2{$k};
    # do something with $k
    my $result = md5($k);
    if ($result ne $hash2{$k}){
         print "Hash sum miss match for '$k'!\n";
    }
}