foreach (@files) {

  $FH = $_;

  open (FILE, "<$FH"); 

 OUTER: while ((<FILE>)) {

    $line_B = $_;

      $batch .= $line_B;
     
    last if eof;
    last if ($line_B =~ m/^\s*go\s*$/i);

  }
   $dbh->do($batch) if ($line_B =~ m/^\s*go\s*$/i);
}