$db->delete(1111);
splice(splice(@{$bucketobj->{referrerindex}}, 1, 1);
$db->{1111} = $bucketobj; # Modified object