You may want to check out the Algorithm::Numerical::Shuffle module. It is very easy to use

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

Les Howard
www.lesandchris.com
Author of Net::Syslog and Number::Spell