perl -F, -lane '$x+=$F[99]; END{print $x}' data.txt