open (OUT, ">.line");
while (<>) {
print OUT $_;   # increment file here

            }