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