Select Code to Download

foreach my $record (@filedata) {
    my $sql = "INSERT INTO $table VALUES ($record)";
    my $rows = $dbh->do($sql);
}

foreach my $record (@filedata) {
    my @fields = split /,/, $record;
...
    my $rows = $sth->execute(@fields);
    $sth->finish();
}