Anonymous Monk,
Unless there has been any hanky panky going on, I believe that a simple ref $object; should do what you want? If you suspect foul play or want to know the underlying type of an object, I would recommend reading this node. I found it quite enlightening.

<headshake>my $not_a_hash = bless [], 'HASH';</headshake>

Cheers - L~R