#!/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} );
    }
}