perl -naF, -e '$F[0] eq $prev or close FIL,open FIL,qq|>>|, $F[0] . qq|.txt|;print FIL $_;$prev=$F[0]'    mycsv.csv