my @out = qw(one two three four five six seven eight nine);
@out = join "\n", @out;
my $i = 0;
foreach (@out) {
   print "\$out[",$i++,"] = '$_'\n";
}
=output=
$out[0] = 'one
two
three
four
five
six
seven
eight
nine'