Select Code to Download

my @ordered;
while( my $n = keys %hash ) {
...
    delete @hash{ @temp };
    push @ordered, @temp;
}

my @ordered;
while( my $n = keys %hash ) {
...
    delete @hash{ @temp };
    push @ordered, @temp;
}