use Win32::TieRegistry;

$Registry->{"LMachine/Software/MyCompany/MyProduct/$key"} = $strval;
#or
$Registry->{"LMachine/Software/MyCompany/MyProduct/"}{$key} = $strval;