map $_->[1], grep $_, first { .... } ...;