#!/usr/bin/perl -wl
use strict;

my @a;
$a[ord($_)-65]++ for <DATA>;
print "There are $a[$_] element(s) of ", chr($_+65) for 0..$#a;

__DATA__
A
B
C
D
A
B
A
C
A
D