add Array->ssect()

	modified:   lib/List/Objects/WithUtils/Role/Array.pm
	new file:   t/01_array/ssect.t