[perl]配列をランダムに並べ替えます。

Perlです。
配列をランダムに並べ替えます。
もとネタはPerlクック本です。

sub shuffle {
my $array = shift;
my $i;
for ($i = @$array; --$i;) {
my $j = int rand ($i+1);
next i…