foreach $c ("abbot","costello") {
   print "$c\n";
};