@array1=(1..10);
@array2=(10..20);
while (defined($v1=shift(@array1)) && defined($v2=shift(@array2))) {
  print "$v1,$v2\n";
}