open my $fh, "</usr/share/dict/words" or die;
my %h;
$h{$_}++ while <$fh>;