open(INPUTFILE, "$file");
open(OUTPUTFILE, ">$outputfile");
my $counter = 1; 
while (<INPUTFILE>) { 
   print OUTPUTFILE "$counter. $_";
   $counter++;
}
close(INPUTFILE); 
close(OUTPUTFILE);