if(  UNIVERSAL::isa( $r, "ARRAY" )  ) {
        # access @$r here
    } elsif(  UNIVERSAL::isa( $r, "HASH" )  ) {
        # access %$r here