下面的习题解答：
1 # !/usr/bin/perl -w
2
3 @list = <STDIN>;
4 @list = sort(@list);
5 @list = reverse @list;
6
7 print "\n";
8
9 print @list;
10
11 print "\n";
12 print "input the number:\n";
13 $num = <STDIN>;
14 print $list[$num];
15 srand;
16 print $list[rand(@list)];
发现第四行 @list[$num]的结果也是一样的，不必是$list[$num]，难道是版本问题？
书上说srand是进行随机数初始化的，但是发现如果删除这行也可以