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

##</code><code>##

  $csv_obj->print ( $csv_files{$table}, $data{$table} );