my $s="";
for (1,4,7) { $s .= join(" ", $_ .. $_+2) . "\n";}

##</code><code>##

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