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