sub serial {
    join(', ', @_[0 .. $#_-1])
    . (@_ > 2 ? ',' : '')
    . (@_ > 1 ? ' and ' : '')
    . $_[-1];
}