print { $csv_files{$table} } join( ',', @{ $data{$table} } ) . "\n";