in reply to Getting the right count

$ perl -naF'\t' -E'$n+=$F[0]>600;END{say$n}' your-data

[download]

In Section Seekers of Perl Wisdom