use List::Util "shuffle";
my @unsorted = shuffle(1..100);