Select Code to Download

while (<WORD>) {
    chomp;
...
    my @chars = split(//, $_);
    push @{$wordlist{$#chars}}, $_;
}

while ( <WORD> ) {
    chomp;
...
    push @{ $wordlist{ length() } }, $_;
}