Help for this page
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};