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