Select Code to Download

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

foreach my $word ( sort keys @theseWords) {