And since $_->[2] is either 0 or 1 you could do:

$length+=$_->[2] for @select;
[download]