#Initialisierung der CODONS
@Ala = ("GCU","GCC","GCA","GCG");
@Cys = ("UGU","UGC");
@Asp = ("GAU","GAC");
@Glu = ("GAA","GAG");
@Phe = ("UUU","UUC");
@Gly = ("GGU","GGC","GGA","GGG");
@His = ("CAU","CAC");

#...

foreach $trip ( @triplets ) {
 #...
}