Hey slycer. You're looping around your data far too often.

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

will be up to three time faster as it only needs to go through the data once.

(Whoops! This is essentially what IO said.)