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

##</code><code>##

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