sub serial {
    my $last = pop;
    my $seclast = pop;
    $seclast .= ',' if @_;
    join('', map "$_, ", @_) . join(' and ', $seclast || (), $last);
}