or download this
for $i6 ((reverse (($jj + 1))..($#{$blocks[$datapoint[$kk][3]]}) - 1))
+ {
...
$blocks[$datapoint[$kk][3]][$i6 + 1][5] = $blocks[
+$datapoint[$kk][3]][$i6][5];
$blocks[$datapoint[$kk][3]][$i6 + 1][6] = $blocks[
+$datapoint[$kk][3]][$i6][6];
}