Ignoring that it doesn't work, I don't see how

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

is easier than

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