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

deleteReg(
    $Registry,
    "HKEY_LO­CAL_MACHINE/SOFTWARE­/MyWay/",
);