Select Code to Download

foreach my $filename (@files) {
   open(my $fh, '<', $filename)
...
      $dbh->do($batch);
   }
}

foreach my $filename (@files) {
   open(my $fh, '<', $filename)
...
      $batch = '';
   }
}