@a = qw(a b c);
$foo = "hello";
*a = \$foo;
print <<"END";
array: @a
scalar: $a
END