use Win32::TieRegistry ( Delimiter=>"/", ArrayValues=>1 );

$Registry->Delimiter("/");                  # Set delimiter to "/".
$swKey= $Registry->{"LMachine/Software/Microsoft/Windows/CurrentVersion/Uninstall/"};
@members=keys( %{$swKey} );
foreach ( @members)
{	print "$_ \n";
}