*isa= UNIVERSAL::isa;
sub whatever {
    for my $ref (  @_  ) {
        if( isa( $ref, "HASH" ) ) {
# ...