Select Code to Download

my %h1=('qwqw' => {'qw' => 'qww','df' => 'dfff','C1' => {'A2' => a2,'B
+2' => 'b2','C2' => 'c2END'}},);
my %h2=(
...
            $deep-1;
          }
}

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