How about serial comma function? :) Short enough to reproduce here. I use it in my TT2 filters.

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