my %dictionary = (); open(DICTIONARY, ") { chomp; $dict{$_} = 1; } close(DICTIONARY); while (doc_to_check) { unless ($dict{$_}) { print "$_ is spelled incorrectly.\n"; } }