my @primate = qw( sifaka gibbon tarsier langur );
  print "Endangered primates: ", serial(@primate), ".\n";