foreach my $word ( sort keys @theseWords) {