Select Code to Download

my $COMMIT_CHUNK_SIZE;
my $line_num;
my $row = [ ... ];

my $cnt_COMMIT_CHUNK_SIZE;
my $cnt_line_num;
my $db_row = [ ... ];

if ($db_row and ($db_row % $cnt_COMMIT_CHUNK_SIZE == 0)) {
    $dbh->commit;
}