配列のシャッフル

　List::Utilモジュールのshuffleを使うと簡単です。

use strict;
use List::Util;

my @data = qw (a b c d e f g h i j);
my @data2 = List::Util::shuffle @data;