while ($line = <IN>)
{$nextline=<IN>;