$doc->delete_one( {'_id'=>$doc->{_id} } );
  # If that fails, try:
$doc->delete_one( {'_id'=>$doc->{_id}{value} } );