reftype $x eq 'HASH'

##</code><code>##

( reftype $x or '' ) eq 'HASH'

##</code><code>##

$DB::single = $DB::single = 1;