[10:41:29] ~
$ perl -e '$a=5; print ref(\$a)'
SCALAR
[10:43:19] ~
$ perl -e '@a=(1,2); print ref(\@a)'
ARRAY
[10:43:23] ~
$ perl -e '%a=(1=>0,2=>0); print ref(\%a)'
HASH
[10:43:26] ~
$