$last = pop(@array);
$sentence = join ", ", @array;
$sentence .= "," if ($#array > 0);
$sentence .= " and " if ($#array > -1);
$sentence .= "$last";