#!/usr/bin/perl -w
use strict;
my @names = qw(
A E I
B F J
C G K
D H L
);
my %count;
foreach (@names) {
if (exists $count{$_}) {
$count{$_}++;
} else {
$count{$_} = 1;
}
}
foreach (keys %count) {
print "$_ \toccurs $count{$_} time(s)\n";
}