obfuscated shuffle can be sort {--$|} but, as expected, List::Util shuffle is a bit more performant

use strict;
use warnings;
use Benchmark qw(cmpthese);
use List::Util qw(shuffle);

my $count = 10000;
my @numbers = 0..10000;

cmpthese($count, {
    'List::Util::shuffle' => sub { my @shuffled = shuffle @numbers },
    'Discipulus::shuffle' => sub { my @shuffled = sort { int rand(3) -
+ 1 } @numbers },
    'Discipulus::--$|fle' => sub { my @shuffled = sort { --$| } @numbe
+rs },
});

__END__
                      Rate Discipulus::--$|fle Discipulus::shuffle Lis
+t::Util::shuffle
Discipulus::--$|fle  164/s                  --                -52%    
+            -95%
Discipulus::shuffle  342/s                108%                  --    
+            -89%
List::Util::shuffle 3107/s               1793%                809%    
+              --
[download]

L*