sub purge_dead_from_object_index {
        delete @Live_Objects{ grep !defined $Live_Objects{$_}, keys %Live_Object
s };
}