foreach my $v1 (@array1)
  { my $v2= shift @array2;
    print $v1, $v2;
  }