#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my %fruits;

while (<DATA>) {
    chomp;
    my @row = split /\s+/, $_, 2;
    warn @row and next unless @row == 2;
    $fruits{$row[0]}->{$row[1]}++;
}

for my $fruit (sort keys %fruits) {
    
    my $sum = 0;
    $sum += $fruits{$fruit}->{$_} for keys %{$fruits{$fruit}};
    $sum =  $sum == 1 ? $sum . ' TIME ' : $sum . ' TIMES ';
    
    my $people = '';
    my @people = keys %{$fruits{$fruit}};
    for (0..$#people) {
        $people .= $_ != $#people ? 
            uc ($people[$_]) . ' and ' : 
            uc ($people[$_]);
    }
    
    print uc $fruit, ' appears ', $sum, 'associated with ', $people, "
+\n"; 
}

__DATA__
apple  Tom
orange Tom
pear   Tom
mango  David
apple  David
[download]