$db = DBM::Deep->new(file => "foo.db", locking => 1, autoflush => 1);

##</code><code>##

$db->{1111} = $bucketobj;

$bucketobj->{urlindex} = [$url $url2]
$bucketobj->{referrerindex} = [$url3 $url4]

##</code><code>##

splice(@{$bucketobj->{referrerindex}, 1, 1)