#!/usr/bin/perl

@foo= ("apple","orange","pear","pear","mango","apple");

for (@foo) {
$bar{$_}++;
}

while ( ($k,$v) = each %bar ) {
if ($v =~ 1){
    print "$k appears $v time\n";
}
elsif ($v !=~ 1){
    print "$k appears $v times\n";
}
}

##</code><code>##

apple
orange
pear
pear
mango
apple

##</code><code>##

apple  Tom
orange Tom
pear   Tom
mango  David
apple  David

##</code><code>##

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