my $z = ones(10,10); $z(1:8,1:8) .= 0; print $z;