perl -lane '++$F[15]; print join "\t", @F' file