print $key, ',', join(',', @{ $data{$key} }), "\n";