for( @aas ){
  @codons = @{$Deg_codons{$_}};
  for my $seq( keys %SEQ ){
    for my $codon( @codons ){
      $SEQ{$seq.$codon}=1; 
    }
    delete $SEQ{$seq};
  }
}