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