UNIVERSAL::isa($date, 'ARRAY')

##</code><code>##

  if ( ref($obj) eq 'FOO' ) {...}

##</code><code>##

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