$t0 = 11111;
$t1 = $datapoint[$kk][1];
$t2 = $datapoint[$kk][2];
$t3 = 0;
$t4 = 0;
$t5 = 99999;
$t6 = 1111;
for my $rr (($jj + 1)..(($#{$blocks[$datapoint[$kk][3]]}) )) {
    $temp1 = $blocks[$datapoint[$kk][3]][$rr][0];
    $blocks[$datapoint[$kk][3]][$rr][0] = $t0;
    $t0 = $temp0;
}
for my $rr (($jj + 1)..(($#{$blocks[$datapoint[$kk][3]]}) )) {
    $temp1 = $blocks[$datapoint[$kk][3]][$rr][1];
    $blocks[$datapoint[$kk][3]][$rr][1] = $t1;
    $t1 = $temp1;
}
            
for my $rr (($jj + 1)..(($#{$blocks[$datapoint[$kk][3]]}) )) {
    $temp1 = $blocks[$datapoint[$kk][3]][$rr][2];
    $blocks[$datapoint[$kk][3]][$rr][2] = $t2;
    $t2 = $temp2;
}
                
for my $rr (($jj + 1)..(($#{$blocks[$datapoint[$kk][3]]}) )) {
    $temp1 = $blocks[$datapoint[$kk][3]][$rr][3];
    $blocks[$datapoint[$kk][3]][$rr][3] = $t3;
    $t3 = $temp3;
}
                
for my $rr (($jj + 1)..(($#{$blocks[$datapoint[$kk][3]]}) )) {
    $temp1 = $blocks[$datapoint[$kk][3]][$rr][4];
    $blocks[$datapoint[$kk][3]][$rr][4] = $t4;
    $t4 = $temp4;
}
                
for my $rr (($jj + 1)..(($#{$blocks[$datapoint[$kk][3]]}) )) {
    $temp1 = $blocks[$datapoint[$kk][3]][$rr][5];
    $blocks[$datapoint[$kk][3]][$rr][5] = $t5;
    $t5 = $temp5;
}
                
for my $rr (($jj + 1)..(($#{$blocks[$datapoint[$kk][3]]}) )) {
    $temp1 = $blocks[$datapoint[$kk][3]][$rr][6];
    $blocks[$datapoint[$kk][3]][$rr][6] = $t6;
    $t6 = $temp6;
}
                
$blocks[$datapoint[$kk][3]][($#{$blocks[$datapoint[$kk][3]]}) + 1][0] = $t0;
$blocks[$datapoint[$kk][3]][($#{$blocks[$datapoint[$kk][3]]}) + 1][1] = $t1;
$blocks[$datapoint[$kk][3]][($#{$blocks[$datapoint[$kk][3]]}) + 1][2] = $t2;
$blocks[$datapoint[$kk][3]][($#{$blocks[$datapoint[$kk][3]]}) + 1][3] = $t3;
$blocks[$datapoint[$kk][3]][($#{$blocks[$datapoint[$kk][3]]}) + 1][4] = $t4;
$blocks[$datapoint[$kk][3]][($#{$blocks[$datapoint[$kk][3]]}) + 1][5] = $t5;
$blocks[$datapoint[$kk][3]][($#{$blocks[$datapoint[$kk][3]]}) + 1][6] = $t6;