Select Code to Download

for my $key (sort keys %{$hash{A}{B}{C}{D}}, keys %{$hash{A}{B}{C}{E})
+ {
    print $key,"\n"; 
}

my @allkeys; 

...

    print "$key from $which hash.\n";  
}