my $result = '';
for(my $i = 0; $i < $n; $i++) {
    $result .= "$i cat\n\man\n";
}