sub join_email_lists { join ",", grep length, @_ }