Another way might be to...

%hash = map {$_=>$c{$_}++} @a;
foreach (keys %d) {print "$_ occurs $c{$+}\n"};
[download]

not possibly better but another way...
LeGo