http://www.perlmonks.org?node_id=47226


in reply to How do I create a CSV from a 2D array?

or, alternately:

sub delimit {
  my $delim = shift;
  return join('', map {
    join($delim, @$_) . "\n"
  } @_);
}

[download]

In Section Seekers of Perl Wisdom