Select Code to Download

print $_, "\n" foreach (sort {int(rand(3))-1} @array);

print $_, "\n" foreach shuffle @array;