for $i (keys %aminoacids) {