perl -ne 'open FH, ">$..line" and print FH $_ and close FH' data_file