Select Code to Download

# skip zeroth element
for(@out[1..$#out]) {
    print join ',', @$_, "\n";
}

# skip zeroth element
print "$_\n" for map { join ',', @$_ } @out[1..$#out];