Select Code to Download

        foreach my $seq (keys %SEQ) {
            foreach my $codon (@codons) {
...
            }
            delete $SEQ{$seq};
        }

        my @seq_keys = keys %SEQ;
        foreach my $seq_key_num (0..$#SEQ) {
...
            }
            delete $SEQ{$seq};
        }