my $count = 0;
while (<IN>) {
  s/^"\d+"$/'"' . ++$count . '"'/e;
  print OUT;
}