$x = 1;
while(<IN>) {
   # code ...
   $x ++;
}