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

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

foreach my $baz (@$foo) {

     print $_ . "\n";

}