Select Code to Download

my $dp=$datapoint[$kk];
my @t=(11111,$dp->[1],$dp->[2],0,0,99999,1111);
...
for my $t (0..$#t) {
    $blocks_dp3[@$blocks_dp3][$t] = $t[$t];
}

use strict;
use warnings;
...
        }
    }
}