# print all elements
while( @array1 || @array2)
  { my $v1= shift @array1 || "empty"; # or whatever default value
    my $v2= shift @array2 || "empty";
    print $v1, $v2;
  }