my @shuffled = sort {.5<rand} @input;

##</code><code>##

my %r;
my @shuffled = sort { ($r{$a}||=rand) <=> ($r{$b}||=rand) } @input;

##</code><code>##

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