eval { keys %$ref } ;
print "its a hash" unless $@;