my %word;

open my $fh, "<", "/usr/dict/words";
chomp, push @{$word{substr $_, 0, 1}}, $_ while <$fh>;
close $fh;