>>488 なるほど、ありがとう。

また質問なんだけど、
ファイルの1行に単語とその出現回数などが書かれているデータがあって、それを読み込んで木を作成してる。
んで、ファイル全行を読み込むのはメモリ食うからダメかなと思うんだけど、
１単語ごとにmake_tree($word)みたいな関数を呼ぶのもオーバーヘッド過ぎるのでは、と思う。
だから以下のように100行ずつ読み込むといったことがしたいのだけど、簡潔な書き方はないでしょうか。
whileの条件式の中にまとめて読む行数を指定できれば読み易そうなんですが。

my @line;
while (<$IN>) {
push @line, $_;
if ($. % 100 == 0) {
make_tree(\@line);
@line = ();
}
}

ただ問題解決の方向性自体が間違ってる感もあるので、合わせて募集。板チだろうか。