my $obj = Some::Class->new();
my $type = ref_like_function_for_object($obj);
if ( $type eq 'HASH' )
  ...


##</code><code>##

  $type = 'HASH' if $obj->isa('HASH');
  $type = 'ARRAY' if $obj->isa('ARRAY');