Hi just try this,

@array = qw (aa bb cc aa aa cc cc dd aa aa);
@final = grep (!$same{$_}++, @array); 
print "$_\-->$same{$_}\n" for keys %same;

output:
cc-->3
bb-->1
dd-->1
aa-->5
[download]