grep BLOCK LIST map { do BLOCK ? $_ : () } @_ }