Select Code to Download

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