use strict;
use warnings;

my %h1=('qwqw' => {'qw' => 'qww','df' => 'dfff','C1' => {'A2' => 'a2','B2' => '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,
'FFF' => 'sdsfsds',
);

&ddump(\%h2);


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"; &ddump (${$ref}{$k}, ($deep+1))}
            else {print "\t" x ($deep)."$k => ${$ref}{$k}\n";}
  }
}