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