*foo = \"a scalar";
print $foo, "\n";

*foo = [ qw( a list of strings ) ];
print @foo, "\n";


*foo = sub { "a subroutine" };
print foo(), "\n";

__output__

a scalar
alistofstrings
a subroutine