@array = qw (aa bb cc aa aa cc cc dd aa aa);
grep {$count{$_}++} @array;
print "$_ - $count{$_}\n" foreach sort keys %count;