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

##</code><code>##

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