while($line=<FH>)
{
   while($nextline=<FH>)
   {
    ....
   }
}