print qq{$array1[$_] $array2[$_]\n} for (0 .. $#array1);