use Scalar::Util qw(reftype);

my $foo = bless {}, 'Artichoke';

print join "\n",
    ref $foo, 
    reftype $foo,
    ;
__END__
#  Output:
Artichoke
HASH