my ($oldfirst, $oldsecond) = ( '', '' );

open WORDS, '<',  $ARGV[0] or die $ARGV[0] . $1 . $/;
while(<WORDS>) {
	chomp;
	next if length == 1;
	$_ = lc;
	my ($first, $second) = /^(.)(.).*/;
	$first = './' . $first;
	$second = $first . '/' . (($second eq ' ') ? '_' : $second);

	if ( ($first ne $oldfirst) or ($second ne $oldsecond) ) {
		mkdir $first if not -e $first;
		open SUB, '>>', $second or die $second . $! . $/;
	}
	print SUB $_, $/;
	($oldfirst, $oldsecond) = ($first, $second);
	print "\r$second:$_              ";
}

##</code><code>##

#! perl -sw
use strict;
use Benchmark::Timer;

sub IsWord {
	return if not @_ or length == 1;
	my ($word, $first, $second) = $_[0] =~ /^((.)(.).*)$/;
	local $_ = do{ local (@ARGV,$/) = "./$first/$second"; <> };
	return /^$word$/im;
}

my $timer = Benchmark::Timer->new(skip=>0);

for (@ARGV) {
	$timer->start;
	my $IsWord = IsWord( $_ );
	$timer->stop;
	print $_, $IsWord ? ' is ' : ' is not ', 'a word', $/;
}

$timer->report;
print "@{[$timer->data('_default')]}", $/;

__END__

##</code><code>##

C:\test\WORDS>../208899-2 Anonymous Baltic Confirm Delta Entity Font
Gregarious Hazzard Indigo Jalopy Kilo Lascivious Matter
Notorious Ovulation Prosthetic Quinine Reading Semaphore Transendental
Uniform Vivisection Weather Xenophobia Yesterday Zorro

Anonymous is a word
Baltic is a word
Confirm is a word
Delta is a word
Entity is a word
Font is a word
Gregarious is a word
Hazzard is a word
Indigo is a word
Jalopy is a word
Kilo is a word
Lascivious is a word
Matter is a word
Notorious is a word
Ovulation is a word
Prosthetic is a word
Quinine is a word
Reading is a word
Semaphore is a word
Transendental is not a word
Uniform is a word
Vivisection is a word
Weather is a word
Xenophobia is a word
Yesterday is a word
Zorro is a word
26 trials of _default (522ms total), 20.077ms/trial
0.01 0.01 0.041 0.02 0.02 0.01 0.01 0.02 0.02 0.01 0 0.01
0.02 0.02 0.01 0.08 0.01 0.03 0.04 0.07 0.041 0.01 0.01 0 0 0

C:\test\WORDS>