my @array1 = (1,2,3);
my @array2 = (7,8);
my @array3 = (1,5,23,3);

$" = ',';
print "$_ " while glob "{@array1}-{@array2}-{@array3}";