sub join_email_lists {
    return join ',', grep {$_} @_;
}