perl -l
*r = ["goose"];
*r = \"moose";
print ref \*r;
print ${*r};
print @{*r};
__END__
GLOB
moose
goose