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

##</code><code>##

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