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