there my little example

the way is to assign as value the $ref built as $ref = \%hash;

my %h1=('qwqw' => {'qw' => 'qww','df' => 'dfff','C1' => {'A2' => a2,'B
+2' => 'b2','C2' => 'c2END'}},);
my %h2=(
'AAA' => 'aaa',
'BBB' => 'bbb',
'CCC' => {'A1' => a1,'B1' => 'b1','C1' => {'A2' => a2,'B2' => 'b2','C2
+' => 'c2END'}},
'DDD' => 'ddd',
'EEE' => \%h1,
);
my $ref2 = \%h2;

&ddump($ref2);

sub ddump
{
  my $ref  = shift;
  my $deep = shift||0;
  foreach my $k (sort keys %{$ref})
          {
            if (ref( ${$ref}{$k}))  {print "\t" x $deep."$k =>\n"; &dd
+ump (${$ref}{$k}, ($deep+1))}
            else {print "\t" x ($deep)."$k => ${$ref}{$k}\n";}
            $deep-1;
          }
}
[download]

If u are intersted in hash jungling my better surpise was:

# %h2 as above
my @arr = qw(AAA CCC EEE);
my %newH;
@newH{@arr}=@h2{@arr};
[download]

ciao Lor*