my @bar = qw(One Two Three);
my $foo = "bar";

print "***" . $foo . "***\n";

my($baz);
foreach $baz (@bar) {

     print $baz. "\n";

}