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