質問です。
Perlメモには

srand;
open(FILE, "< $file");
rand($.) < 1 and $line = $_ while <FILE>;
close(FILE);
print $line;

でファイルからランダムに１行選択できる、とありましたが
１０行選択したい場合はどのように記述すればよいのでしょうか。