use Algorithm::Numerical::Shuffle qw /shuffle/; @shuffled = shuffle (1, 2, 3, 4, 5, 6, 7); [download]
In reply to Re: Randomize an array by lhoward in thread Randomize an array by Zebu