$block .= "$_ cat\nman\n" for 1..$n;