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