Select Code to Download

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

my @lines;
for(my $i = 0; $i < $n; $i++) {
...
}
#print Dumper(\@lines);
my $result = join("\n", @lines);