use 5.16.2;
use Win32::TieRegistry;

my $baseKey = $Registry->{'HKEY_CLASSES_ROOT\Installer\Patches'};

foreach my $subKey ( $baseKey->SubKeyNames ) {
    say $subKey;
}