perl -MList::Util=sum -E '<>; say sum( map{ (split /\t/)[-1] } <>);' file.tsv