print join(",", @{$line}) . "\n";