Select Code to Download

#! perl -slw
use strict;
...
    ListUtil=> q[ my @shuf = shuffle( @array ); ],
}

           Rate   tybalt     buk1     buk2 ListUtil
tybalt    224/s       --     -65%     -70%     -97%
...
ListUtil 56.4/s    4566%     781%     649%       --