Select Code to Download

$hash{A}{B}{C}{D}{one} = "1";
$hash{A}{B}{C}{D}{two} = "2";
...
$hash{A}{B}{C}{E}{one} = "4";
$hash{A}{B}{C}{E}{two} = "5";
$hash{A}{B}{C}{E}{thr} = "6";

foreach my $key (sort {$a cmp $b} keys "D", "E") {
 print "$hash{$key}";
}

#!/usr/bin/perl -w
use strict;
...
    print "$key\n";

}

thr
one
...
1
two
2