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