Similar to other solutions, but using grep and sort:

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

Or search for "count unique array" in Super Search :-)