"HASH" eq ref($_) /HASH/ /(^|=)HASH\b/ UNIVERSAL::isa( $_, "HASH" )