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