Select Code to Download

my @array = ...;
...
my @shuffled = shuffle @array;

my @array = ...
...
my @shuffled = shuffle \@array;

my @shuffled = shuffle ... some expression generating a list ...;

my @shuffled = shuffle [ ... some expression generating a list ... ];

10 strings length 10
                Rate     naive listutil blokhead_ref       buk blokhea
+d   bukNew
...
blokhead      804/s     9750%    3542%        9%       --          -2%
+       -3%
blokhead_ref  819/s     9927%    3608%       11%       2%           --
+       -1%
bukNew        826/s    10023%    3643%       12%       3%           1%
+        --

#!/usr/bin/perl -slw
use strict;
...
        };
    }
}