my @all_words = <FH1> ;
foreach (@all_words) {

##</code><code>##

while (<FH1>) {

##</code><code>##

while (defined($_ = <FH1>)) {