my $dp=$datapoint[$kk];
my @t=(11111,$dp->[1],$dp->[2],0,0,99999,1111);
$blocks_dp3=$blocks[$dp->[3]];

for my $rr ( ($jj + 1)..$#$blocks_dp3 ) {
	for my $t (0..$#t) {
            #swap em?
		($blocks_dp3->[$rr][$t],$t[$t])=($t[$t],$blocks_dp3->[$rr][$t]);
	}	

}	

for my $t (0..$#t) {
	$blocks_dp3[@$blocks_dp3][$t] = $t[$t];
}