for (0 .. scalar(@array1)) {
    $temparray[$_] = $array[$_] . '|' . $array2[$_];
}