@array = qw/a b a c b d e c a/;
%hash = map { $_ => ++$hash{$_} } @array;                               
printf "%s => %s\n", $_, $hash{$_} foreach sort keys %hash;  
---------
a => 3
b => 2
c => 2
d => 1
e => 1