Select Code to Download

for (@$sales_inserts) {
    my $table = shift(@$_);
...
    ');
    $sth->execute(@$_);
}

my %sth_cache;
for (@$sales_inserts) {
...
    ');
    $sth->execute(@$_);
}