Why not just use transactions? If you wrap the inserts in a single transaction, they should not take ~10 milliseconds per insert anymore, but likely be ten times as fast.

# assumes RaiseError
eval {
  $dbh->begin_work;
  ... inserts here
  $dbh->commit;
} or do { $dbh->rollback; }
[download]