while <INFILE> {
  $i++;
  open OUT ">$i.txt";
  #do whatever with your line
  print OUT, "...whatever...";
  close OUT; #just to be tidy :)
}