for my $i (0..$N) { for my $j (0..$N) {