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