$matrix[4000 + 4000*4000] = 1.0;
foreach $x (0..4000) {
       foreach $y (0..4000) {
             $matrix[$x + 4000*$y] = 1.0;
       }
}