my %counts;
++$counts{$_} for @words;
for my $word (sort keys %counts) {
    print("$word: $counts{$word}\n");
}