in reply to Identical list members are sometimes counted as different when compared to each other.
my %counts; ++$counts{$_} for @words; for my $word (sort keys %counts) { print("$word: $counts{$word}\n"); } [download]