Select Code to Download

qw/a a b c d d a/

user wants?
(a => 2, b => 1, c => 1, d => 2, a => 1):
# or
(a => 3, b => 1, c => 1, d => 2);

my %saw;
my @sum=map {$_ => $saw{$_}} grep !$saw{$_}++, @array;