Re: ÐÏÔÒÅÂÌÅÎÉÅ ÐÁÍÑÔÉ.

[Greg Belenky]

> есть файл, большой. например, в нем 2 миллиона строк и 300 метров.

логи?

> open(AAA, "<file");
> foreach (<AAA>) {

foreach в данном случае не канает - по одной простой причине, что _ДО_
начала цикла весь файл считывается и создается _СПИСОК_ строк, по которым
потом и организуется цикл.

попробуй так:

while (my $line = <AAA>) {
  my @line = split ' ', $line;
  ...
}

по идее после конца цикла переменные $line и @line должны высвыбождаться,
т.к. они вышли за пределы блока.

p.s.
use strict;

--
Григорий "Grishace" Беленький
http://search.cpan.org/author/GRISHACE/