$i++ while   ( $i < @$a and  $i < @$b )
	 and not  $o=( $a->[$i] cmp  $b->[$i] );