Perl学习六（练习题）

下面的习题解答：

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是进行随机数初始化的，但是发现如果删除这行也可以