$block = join '', map "$_ cat\nman\n", 1 .. $n;