use strict;
use warnings;
my $scalar_ref=*foo{SCALAR};
print "scalar ref defined\n" if defined $scalar_ref;
#------------------------#
my hash_ref=*foo{HASH};
print "hash ref defined\n" if defined hash_ref;
__END__
output
scalar ref defined