Thank you.

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;
[download]

This code works fine.