if ( ref( $your_var ) =~ /HASH/ ) { ... }

##</code><code>##

if ( ref( $your_var ) eq 'HASH' ) {...}