Being too lazy to install the Arthmetic:: Numerical::Shuffle module

There's also List::Util's shuffle - core if you're using Perl 5.8