while (<DICT>)
{
    chomp;
    push @words, $_;
}