my %codons = (
    Ala => ['GCU', ...],
    ...
);
%codons = map {
    my $v = $_;
    map { $_ => $v } @{ $codons{$v} }; # edit: $_ durch $v ersetzt
} keys %codons;