$a = "foo";
$b = "bar";
$c = "baz";
@list = \($a, $b, $c);
foreach(@list) { print $$_ . "\n"; }