...
while (@data) {
	push @result, $data[0];
	@data = grep { index($data[0], $_) == -1 } @data;
}
...