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