Or (because I like slices)

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

or even

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