Perl 数组随机模块

#!/usr/bin/perl
use List::Util 'shuffle';
#随机数组元素
 my @list = (1..6);
 sub fisher_yates_shuffle {
                       my $deck = shift;  # $deck is a reference to an array
                       return unless @$deck; # must not be empty!
                       my $i = @$deck;
                       while (--$i) {
                               my $j = int rand ($i+1);
                               @$deck[$i,$j] = @$deck[$j,$i];
                               }
               }
# &fisher_yates_shuffle(@list);
 @shuffled = shuffle(@list);  #这个和上面注掉的这个函数是一样的意思
print "@shuffled";