Array problem

[Andrej Kastrin]

I wrote simple script, which have to concatenate multiple lines into 
array and then print each element of tihis array:

open INPUT,"<$ARGV[0]";
while ($line=<INPUT>){
   push (@array,$line);
   foreach $i(@array){
       print $i;
  }
}
Input is e.g.
line 1
line 2

I don't know where is the problem, Please, help!

Cheers, Andrej

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>