foreach ($@array) {
  print join ', ', @$_;
  print "\n";
}