#!perl
use strict;
my @array1 = (
    ['a','b','c'],
    ['d','e','f','g'],
    ['h','i'] );
my @array2 = (
    [1,2,3],
    [4,5,6,7,8],
    [9,10] );

my $i = 0;
foreach my $ar1 (@array1) {
  my $ar2 = $array2[$i++];
  print join ',', @$ar1,@$ar2;
  print "\n";
}
[download]