foreach(@allhits){
    while(my $str=<FH1>){