print DATA join(',', @$output), "\n";
# Or something like that