if( UNIVERSAL::isa($r,'HASH') and %$r ) { ... }