#Store the file in an array, split by newlines
while (<LOG>){
       $string .= $_;
       }

@array = split(/\n/, $string);

##</code><code>##

while (<LOG>){
       chomp;
       push( @array $_ );
       }