while (<IN>){
        $i = $_;