$Q->nq( $_ ) for (shuffle 1 .. $N)[ 0 .. $R ];
#.....................................^^^^^^^^^^^