http://www.perlmonks.org?node_id=1025965


in reply to Re^6: Out of memory error!!!
in thread Out of memory error!!!

... while (defined(my $line2 = $INFO)) { ...

... you need to use the diamond operator to read from a file line by line:

... while (defined(my $line2 = <$INFO>)) { ...