$x->[$j] -= $BASE if $car = (($x->[$j] += $car) >= $BASE) ? 1 : 0; $j++;
$x->[scalar @$x] = 0; # avoid || 0 test inside loop
$z = splice @a, 3, 1, "recordZ";
$x->[$j] -= $BASE if $car = (($x->[$j] += $car) >= $BASE) ? 1 : 0; $j++;
$x->[scalar @$x] = 0; # avoid || 0 test inside loop
$z = splice @a, 3, 1, "recordZ";