use strict;
use warnings;

my @names = qw(Foo Bar Baz);

for (@names){

  print "$_\n";

}