#! /usr/bin/perl

# $year = 2001;
# $i = 0;
# $bibkey = "It".$year.":".$i;
# print "\"inproceedings{$bibkey,\n";
# $i = $i +1;
# $bibkey = "It".$year.":".$i;
# print "inproceedings{$bibkey,\n";

open(INF, "+<tst.txt");
$i = 0;
while($line = <INF>)
  { print INF "test $i $line";
      $i = $i +1;
  }
  
close(INF);

# Result: writes wherever it is, so does not modify a line
