my @array = qw/aa bb cc aa cc cc dd aa aa/;
my %sums;
$sum{$_}++ foreach @array;
print "$_ = $sums{$_}\n" foreach keys %sums;