$x = "\n".join "\n", map { join ' ', ( $_ .. $_ + 2 ) } ( 1, 4, 7 );