use List::Util; @shuffled = List::Util::shuffle(1..100000);