next if 1+index $all, $x, $p;