use Win32::TieRegistry;
my $SOURCE=$Registry->Connect( '127.0.0.1','LMachine',{Delimiter=>"\\"}) or die;
my $REMOTE=$Registry->Connect( 'bdc','LMachine',{Delimiter=>"\\"}) or die;
my $folder="SYSTEM\\RAdmin\\";
#ArrayValues
my $key_source=$SOURCE->Open($folder);
$key_source->ArrayValues(1);
$REMOTE->{$folder}=$key_source;