sub csv_join {
  join ",", map { s{"}{""}g || m{[ ,]} ? qq{"$_"} : $_ } (my @x = @_);
}