Help for this page
perl -F"\t" -lane '$, = ","; print $ARGV, $F[21], $F[3]' *.gcount > Af +1gcount.csv