perl -F';' -ane'$F = ">>$F[0].csv"; open F and print F' junk.dat