You probably want to use Scalar::Util's reftype instead of ref. It will handle blessed references properly for you.

For example:

use Scalar::Util qw(reftype);

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

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