say scalar grep{ $_->[2] } @select;