Select Code to Download

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

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