perl -F"\t" -lane '$, = ","; print $ARGV, $F[21], $F[3]' *.gcount > Af1gcount.csv