Help for this page
my @all_words = <FH1> ; foreach (@all_words) {
while (<FH1>) {
while (defined($_ = <FH1>)) {