Converting my comments into an answer: - to split your `list`: splitList = Split[list, Last[#2] >= Last[#1] &] or splitList = Split[list, First[#2] > First[#1] &] - to then select only those sublists with at least three elements: Select[splitList, Length[#] >= 3 &]