@list = ('a', 'a', 'a', 'b', 'c', 'd');
foreach(@list) { $unique{$_}++ }
foreach(sort keys %unique) { printf "$_ : %s\n", $unique{$_} }