if ( UNIVERSAL::isa($blessed_in_foo , 'HASH') ) {
    print "Is an HASH object!\n" ;
  }