foreach $l ( "apples", "bananas", "cherries" ) {
  print "I like $l\n";
}