my %rev_seq = reverse %SeqOrders;
for my $recid (sort keys %rev_seq) {
    ...
}