#!/usr/bin/perl
our @bar = qw(One Two Three);
my $foo = "bar";


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

foreach  (@$foo) {

     print $_ . "\n";

}