while($line=<FH>)
{
   print("outer: $line");
   while($nextline=<FH>)
   {
      print("inner: $nextline");
   }
   print("finished inner\n");
}
print("finished outer\n");