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