sub join_email_lists {
    return join(",", grep { length } @_);
}