I got it to work but I had to change to this:
print OUTFILE $_ if length $_ == 9;
other wise it printed out all of the non-seven letter words instead of printing only the 8-letter words.