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