Select Code to Download

sub shuffleEm {
    ( shuffle 1 .. $range )[ 0 .. $uSize ];
}

cmpthese( -1, {
    grepGen  => sub{ @grep  = grepGen();  },
...
    smartGen => sub{ @smart = smartGen(); },
    shuffleEm=> sub{ @shuffled = shuffleEm() },
} );

C:\test>junk
             Rate   grepGen    mapGen  smartGen shuffleEm
...
mapGen     72.6/s      106%        --      -94%     -100%
smartGen   1250/s     3439%     1621%        --      -95%
shuffleEm 26859/s    75977%    36902%     2049%        --