Select Code to Download

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

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