#!/usr/bin/env perl
use warnings;
use strict;
use 5.10.0;

my $h= { 'user' => { 'firstname' => 'Joe','lastname' => 'Shmoe'}};

my $h2= { 'user' => 'Finance Department'};


say "yes" if (ref($h->{'user'}) eq "HASH");

say "no" if (not ref($h2->{'user'}) eq "HASH");

#OUTPUT:
yes
no