my $length;

$length++ if $_->[2] for @select;
say $length;