perl -F"\t" -lane '$, = ","; print $F[0], $F[4]' AF1.gcount > Af1gcount.csv