Algorithm::Numerical::Shuffle

I'm not sure if it's the fastest, but it is the easiest:

use Algorithm::Numerical::Shuffle qw(shuffle);

@shuffled = shuffle (1, 2, 3, 4, 5, 6, 7);
[download]

-- ar0n (just another perl joe)