if (ref $val eq "HASH") { ... }

##</code><code>##

use Scalar::Does;
if (does $val, "HASH") { ... }