while (defined (my $line = <WORDS>)) {