foreach $bar (@foo) {
  print $bar;
}