while (<WORD>) {
	chomp;
	next if /[^a-z]/; # Lazy way out~
	my @chars = split(//, $_);
	push @{$wordlist{$#chars}}, $_;
}

##</code><code>##

while ( <WORD> ) {
	chomp;
	next if /[^a-z]/; # Lazy way out~
	push @{ $wordlist{ length() } }, $_;
}