my $key = "Key\\SubKey\\";
if(exists $Registry->{$key} and defined $Registry->{$key}){
    print "Registryeintrag vorhanden\n";
}