foreach my $recid ( reverse sort keys %SeqOrders )
#                                ~~~~