lenti250 [~/perltest]>more arrays.pl
#!/user/bin/perl -w
# arrays (lists of scalars)
# array names start with @
# define arrays by listing their contents in parentheses,
# separated by commas
# to retrieve the elements of an array, $array_name[element_index]
# the element index numbers start with 0
#
@aa_names = ('alanine', 'arginine', 'aspartate', 'asparagine', 'cysteine',
'glutamate', 'glutamine', 'glycine', 'histidine', 'isoleucine',
'leucine', 'lysine', 'methionine', 'phenylalanine', 'proline',
'serine', 'threonine', 'tyrosine', 'tryptophan', 'valine');

@aa_1codes = ('A', 'R', 'D', 'N', 'C', 'E', 'Q', 'G', 'H', 'I', 'L', 'K',
'M', 'F', 'P', 'S', 'T', 'Y', 'W', 'V');

@aa_3codes = ("Ala", "Arg", "Asp", "Asn", "Cys", "Glu", "Gln", "Gly",
"His", "Ile", "Leu", "Lys", "Met", "Phe", "Pro", "Ser", "Thr", "Tyr",
"Trp", "Val");

for $i (0 .. 19)  {
print $aa_names [$i], "  ", $aa_3codes [$i], "  ", $aa_1codes [$i], "\n";
}

exit;
lenti251 [~/perltest]>perl arrays.pl
alanine  Ala  A
arginine  Arg  R
aspartate  Asp  D
asparagine  Asn  N
cysteine  Cys  C
glutamate  Glu  E
glutamine  Gln  Q
glycine  Gly  G
histidine  His  H
isoleucine  Ile  I
leucine  Leu  L
lysine  Lys  K
methionine  Met  M
phenylalanine  Phe  F
proline  Pro  P
serine  Ser  S
threonine  Thr  T
tyrosine  Tyr  Y
tryptophan  Trp  W
valine  Val  V
lenti252 [~/perltest]>