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