Select Code to Download

#!/usr/bin/perl

...
    print "$k appears $v times\n";
}
}

apple
orange
...
pear
mango
apple

apple  Tom
orange Tom
pear   Tom
mango  David
apple  David

APPLE appears 2TIMES associated with TOM and DAVID
ORANGE appears 1TIME associated with TOM
...e.t.c