while ((my $line_B = <FILE>)) {
         last OUTER unless defined ($line_B = <FILE>)