$_->{percent}=$_->{count}/$tot*100 for (values(%CODONS));