...
while (defined(my $line2 = $INFO)) {
...
[download]

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

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

First of all. 30 lines mean nothing when you don't know how long the lines are. We never talked about that. Probably you have a unusual encoding where the line ending is not the same as with unix. Do you really have LF (0x0a) for a line ending?

Is there some weird preallocation which is unrelated to the count of line which blows your memory resources?

Can't you give us a little complete running example showing us the error message? Otherwise I don't know how to help you any further.

McA

Hi

I tried to run the program and printed the line and got the ouput as below. Its working fine till getting values from C1 line and then when it comes to C2 it is throwing error. I'm assigning some array using substr command in my script.

$a=0;

$b=0;

i.e

$Var20$a$b = trim(substr($line2,11,15));

$a++;

$b++;

something like that..

Output:

A0XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXx

A1XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX

A2

A3

A4

A5

A6

A7

A8

A9

AA

C1

C2XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Out of memory!

I couldnot get what u meant by LF().

There are some variable assignment in the beginning of the script as well. The file size which Im processing is 5kb only :-(

Thanks & Regards,

Sathya V.

Create an example people can actually run that produces the problem, provide enough data to make it fail. Post it here. Don't forget code tags. How do I post a question effectively?