Select Code to Download

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