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