my @array = ...
...
my @shuffled = shuffle \@array;