As other monks have pointed out, the question is a little vague. If what you're trying to do is compare elements in one hash with elements in another hash, and the key values do not matter, you could use code something like this:
#!/usr/bin/perl
use warnings;
use strict;
my %giant = (
fee => 'fi',
fo => 'fum',
I => 'smell'
);
my %mouse = (
eeeny => 'meeny',
miny => 'mo',
nose => 'smell'
);
my $out = "giant\{%s\} equals mouse\{%s\}\n";
for my $g ( sort keys %giant ) {
for my $m ( sort keys %mouse ) {
printf $out, $g, $m if ( $giant{$g} eq $mouse{$m} );
}
}
| 