$_ = join ',' => @$_ for @array;


##</code><code>##

for my $e (@array) {
  $e = join ",", @$e;
}