while ( <WORDLIST> ) {
  print OUTFILE unless $list{lc($_)}++;
}