BEGIN {
    *isa= \&UNIVERSAL::isa;
}
... isa( $ref, 'HASH' ) ...