redo if ( @gArray && grep { /$rInt/ } @gArray );
...
        redo if ( @mArray && map { /$rInt/ } @mArray );
...
        redo if ( @sArray && $rInt ~~ @sArray );