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