i don't know if i had understood your problem but this :

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

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

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

     print $baz. "\n";

}
[download]

it will give you this output :
***bar***
One
Two
Three

---