if ( %$ref && ref $ref eq 'HASH' ) {
 ...do something
}