use Algorithm::Numerical::Shuffle qw(shuffle); @shuffled = shuffle (1, 2, 3, 4, 5, 6, 7);