Select Code to Download

$input = '7374,726327,"76,237",32324,"21,342,857",23';
print("input:  $input\n");
...
}

print("output: $output\n");

use Text::CSV_XS ();

...

print("output: ");
$csv->print(\*STDOUT, @fields);