I'm late in the game here... but anyways...

Without arguing the merits of symbolic reference (merits they say... what merits?), this will do it.

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


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

foreach  (@$foo) {

     print $_ . "\n";

}
[download]