while (my $testWord = <$listWord>){ ...