my @array;
my $counter = 0;

while (<Input>)
{
 my $line = $_;
 chomp $line;
 push (@array, $line)
 if ($counter = 3000)
 {
   my @information;
   foreach my $element (@array)
   {
     #extract info from $element and push into @information
   }
   for my $x (@information)
   {
     print Output "$x\n";
   }
   $counter = 0;
   @information = ();
 }
}