文章简单介绍一下perl中如何随机抽取数组中的一个元素。
这里用到List::Util模块中的shuffle子程序，List::Util模块是Perl中专门用于处理列表数据的一个模块。
方法如下：
use List::Util qw(shuffle);
my @shuffled_nums = shuffle(1..10); # 3 9 8 5 6 4 1 10 2 7
my @shuffled_name = shuffle('A'..'G');# F E G A B D
(my$a) = @shuffled_name; # F
shuffle()作用是对对列表中的元素随机排序，我们取第一个值，这样就相当于随机抽取一个数组元素了。
