my $Reg;
    use Win32::TieRegistry 0.20 (
        TiedRef => \$Reg,
        Delimiter => "/", ArrayValues => 1,
        qw( :REG_ KEY_ALL_ACCESS ),
    );