my $csvSep = ','; # comma as csv-separator
foreach my $line (@rows){ # e.g. 2-dim array
  my @columns = @$line;
  print join($csvSep, # join by $csvSep
    map { 
      /\Q$csvSep/ ? "\"$_\"" : $_ # if $csvSep found in Value: "val"
    } @columns; # take columns
  ), "\n"; # and a newline...
} # foreach