my $sentence = join @array > 2 ? ', ' : ' ',
               @array > 1 ? ( @array[0..$#array-1], 'and '.$array[-1] ) : @array;