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];
}                

##</code><code>##

use strict;
use warnings;

my $x=[
        [ [1..6],[1..6] ],
        [ [2..7],[2..7] ],
        [ [3..8],[3..8] ]
      ];
print "($x) has ".scalar(@$x)." elements\n";

foreach my $ix (0..$#$x) {
    my $y=$x->[$ix];
    print "\t\$x->[$ix] ($y) has ".scalar(@$y)." elements\n";
    foreach my $iy (0..$#$y) {
        my $z=$y->[$iy];
        print "\t\t\$x->[$ix][$iy] ($z) has ".scalar(@$z)." elements\n";
        foreach my $iz (0..$#$z) {
            print "\t\t\t\$x->[$ix][$iy][$iz] = $z->[$iz]\n";
        }
    }
}