my %grave;
sub bury {
    my( $object )= @_;
    $grave{$obj}= $object;
}
sub resurrect {
    my( $string )= @_;
    return delete $grave{$string};
}