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

##</code><code>##

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