my $entries = $Registry->{"HKEY_LOCAL_MACHINE/[...]/COUNTRIES_FOR_QUALITY/l1"};
my $copy_ref = dclone( $entries );
$entries->{'/V1'}=["other","REG_SZ"];
print $entries->{'/V1'};
print $copy_ref->{'/V1'};