$K=5;
for (1 .. $K*$K) { $s.= ( $_ % $K ? "$_ " : "$_\n"); }