Hai
This works for ur command line inputting of file to create 1.line and 2.line etc for each line of input file

#!/usr/bin/perl
use strict;
use warnings;
open(FIN,"< $ARGV[0]") || die "cant open file:$!";

while(<FIN>) {
    my $line = $_;
    open(FOUT,">$..line") || die "cant open file:$!";
    print FOUT $line;
    close(FOUT);
}
close(FIN);
[download]

--prasanna.k