You can just shuffle the list. Use

 use Algorithm::Numerical::Shuffle qw /shuffle/;
 @shuffled = shuffle (1..100);
[download]

or

 @shuffled = shuffle (3,7,19,1000,44);
[download]

You can also shuffle a list in place.

HTH, --traveler