for my $obj (@objstoinsert){
  local $SIG{__WARN__} = sub { die "died with $_[0], the object was $obj" }
  $obj->insert()
}