note
neniro
You can use a HoH for this:
<code>
#!/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
</code>
555383
555383