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