for $i6 ((reverse (($jj + 1))..($#{$blocks[$datapoint[$kk][3]]}) - 1)) {
                    $blocks[$datapoint[$kk][3]][$i6 + 1][1] = $blocks[$datapoint[$kk][3]][$i6][1];
                    $blocks[$datapoint[$kk][3]][$i6 + 1][2] = $blocks[$datapoint[$kk][3]][$i6][2];
                    $blocks[$datapoint[$kk][3]][$i6 + 1][3] = $blocks[$datapoint[$kk][3]][$i6][3];
                    $blocks[$datapoint[$kk][3]][$i6 + 1][4] = $blocks[$datapoint[$kk][3]][$i6][4];
                    $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];
                }