my %codons = (
    (map {$_ => 'Ala'} qw/GCU GCC GCA GCG/),
    ...
);