sub whatever {
    for my $ref (  @_  ) {
        if(  !ref($ref)  ) {
            # Not a reference
        } elsif(  eval { my $x= $ref->{''}; 1 }  ) {
            # It can be used as a hash ref
# ...