Select Code to Download

use warnings;
use strict;
...
        print "hash \$two key $x exists in hash \$one\n";
    }
}

hash $two key c exists in hash $one
hash $two key a exists in hash $one