my @bar = qw(One Two Three);
my $foo = "bar";
my %quux = ("bar", \@bar);

print "***" . $foo . "***";

foreach my $baz (@{$quux{$foo}}) {

     print $baz . "\n\n";

}