一応、
$i=0;
while(<IN_FILE>){
if ( $i >= 20000 && $i < 30000 ){
$line[$i - 20000] = $_;
}
elsif ( $i >= 30000 ){
last;
}
else {
$i++:
}
}
とか考えてみたんですが、これだと何万行もあるファイルの場合
結構かかりますよねぇ・・・