perl -lanf, -e 'BEGIN{ $,=','} print @F[0,14];' numbers.csv >out.csv