Help for this page
reftype $x eq 'HASH'
( reftype $x or '' ) eq 'HASH'
$DB::single = $DB::single = 1;