sub serial {
    my $last = pop;
    join(', ', @_)
    . (@_ > 1 ? ',' : '')
    . (@_ > 0 ? ' and ' : '')
    . $last;
}