Select Code to Download

use strict;
use warnings;
...

print "Hash 1 keys \[@{$h1Keys{$_}}\] match \[@{$h2Keys{$_}}\] in hash
+ 2\n"
    for @common;

Hash 1 keys [Wibble] match [wibble] in hash 2
Hash 1 keys [TEXT Text] match [text TexT] in hash 2