Help for this page

Select Code to Download

Select or download this

sub deleteReg {
    my( $key, $name )= @_;
...
    }
    delete $key->{$name};
}