Select Code to Download

my @out = qw(one two three four five six seven eight nine);
my $i = 0;
...
$out[6] = 'seven'
$out[7] = 'eight'
$out[8] = 'nine'

=output=
$out[0] = 'one
...
'
$out[8] = 'nine
'

my @out = qw(one two three four five six seven eight nine);
@out = join "\n", @out;
...
seven
eight
nine'