while( my $i = <IN> ) {