if ( ref $ref eq 'HASH' && %$ref ) {