sub deleteReg {
    my( $key, $name )= @_;
    for(  eval { keys %{$key->{$name}} }  ) {
        deleteReg( $key, "$name\\$_" );
    }
    delete $key->{$name};
}