#!/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";
}