my ( $first) = grep ...;