Select Code to Download

@a = qw(a b c);
$foo = "hello";
...
array: @a
scalar: $a
END

$foo = "hello";
*a = \$foo;
$a = "bye";
print "$foo\n";