cat
man 

##</code><code>##

1 cat
man
2 cat
man
3 cat
man

##</code><code>##

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