my $keys = Variant(VT_BYREF|VT_VARIANT);
    my $result = $registry->EnumKey(2147483651, $base, $keys);
    my @dim = $keys->Dim;
    for ($dim[0][0] .. $dim[0][1]) {
        my $key = $keys->Get($_);
        # ...
    }