in reply to HoH and accumulation

You're looking for the intersection between the sets of keys in both hashes. So, something like this should work: 
my %common;
$common{$_}++ for keys(%hash1), keys(%hash2);

my @common = grep { $common{$_} > 1 } keys %common;

[download]

------
We are the carpenters and bricklayers of the Information Age.

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.

In Section Seekers of Perl Wisdom