my @r = map rand, @input;
my @shuffled = @input[sort {$r[$a] <=> $r[$b]} 0..$#input];