use Win32::TieRegistry(Delimiter=>'/');
my  $ms= $Registry->{'LMachine/Software/Microsoft/'};
$ms->{'Junk1/'} = {   'Junk2/'=>  {'/Junk3' => ['JunkVal','REG_SZ']}       };