printf("\n");

cmpthese timethese( 1_000_000, { 'Array::Shuffle::shuffle_array' => sub { my $arr = [@array]; Array::Shuffle::shuffle_array(@$arr); }, 'List::Helpers::XS::shuffle' => sub { my $arr = [@array]; List::Helpers::XS::shuffle(@$arr); }, } );

printf("\n");

cmpthese timethese( 1_000_000, { 'List::Helpers::XS::shuffle' => sub { my $arr = [@array]; List::Helpers::XS::shuffle(@$arr); }, 'List::Util::shuffle' => sub { my $arr = [@array]; my @values = List::Util::shuffle(@$arr) }, } );