@theseWords = keys %Line;
@theseWords = sort @theseWords;
foreach $word ( @theseWords ) {

##</code><code>##

foreach my $word ( sort keys @theseWords) {