下面的習題解答：
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是進行隨機數初始化的，但是發現如果刪除這行也可以