my %seq_to_amino = ( A => { secuencias => [qw (GCT GCC GCA GCG)], pesos => [qw ( 2 8 10 80)], }, C => { secuencias => [qw (TGT TGC)], pesos => [qw ( 15 85)], }, D => { secuencias => [qw (GAT GAC)], pesos => [qw ( 68 32)], }, # aquĆ­, el resto. Observa las comas entre cada par de entradas );