foreach my $recid ( reverse sort %SeqOrders ) ...