if (defined *{'main::test'}{SCALAR}) { print "scalar" ;}
if (defined *{'main::test'}{ARRAY}) { print "array" ;}
if (defined *{'main::test'}{HASH}) { print "hash" ;}