if (defined $x) {
    reftype $x eq 'HASH'
}