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