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