my @array = qw( a a b c d d );
my %counts;

++$counts{$_} foreach @array;

print("$_: $counts{$_}\n")
   foreach sort keys %counts;