grep sub { ... }, @list