while(...)
{
     my $nextline = <IN>
     .....
}