eval { @regValues = $fieldKey->ValueNames; };
print "\$\^E: $^E\nregLastError: " . Win32API::Registry::regLastError() ."\n\n"; 

##</code><code>##

$^E: 
regLastError: No more data is available

##</code><code>##

@regValues = $fieldKey->ValueNames;
print "\$\^E: $^E\nregLastError: " . Win32API::Registry::regLastError() ."\n\n"; 

##</code><code>##

$^E: No more data is available
regLastError: No more data is available

Can't use an undefined value as an ARRAY reference at C:/Perl/site/lib/Win32/TieRegistry.pm line 684, <DATA> line 164.