my $registry_obj = $Registry->Connect( $hostname, $registry_key, { Access=>'KEY_READ' } ) or do { $log->error("access to [$registry_key] on host [$hostname] failed"); return; }; $registry_obj->SetOptions( SplitMultis => 0 ); $registry_obj->SetOptions( FixSzNulls => 0 ); $registry_obj->SetOptions( ArrayValues => 0 ); $registry_obj->SetOptions( DWordsToHex => 1 ); } ... foreach my $registry_subkey ( $registry_obj->SubKeyNames() ) { something; }