foreach my $foo qw(bar baz) {   print $foo,$/  }