use Win32::Registry; $p = "Installer\\Patches\\18337E8B1B905984CA0D4383B5F025D6\\SourceList\\Media"; $main::HKEY_CLASSES_ROOT->Open($p, $CurrVer) || die "Open: $!"; $CurrVer->GetValues(\%vals); # get sub keys and value -hash ref foreach $k (keys %vals) { $key = $vals{$k}; print "$$key[0] = $$key[2]\n"; # see below for explanation }