Help for this page
my @shuffled = sort {.5<rand} @input;
my %r; my @shuffled = sort { ($r{$a}||=rand) <=> ($r{$b}||=rand) } @input;
my @r = map rand, @input; my @shuffled = @input[sort {$r[$a] <=> $r[$b]} 0..$#input];
www.com | www.net | www.org
No recent polls found