sub serial {
    my $last = '';
    ($last, $_[-1]) = ($_[-1], 'and ') if @_ > 1;

    join(', ', @_) . $last;
}