The problem has already been solved, but if your lab is on fire and you need a one-liner to get you a quick answer:

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