のPerl - 2つの配列の要素を結合

Question

私は2つの配列の要素を一緒に連結するための最良の方法を探しています：

@array1 = (test1, test2, test3, test4, test5); 

@array2 = (answer1, answer2, answer3, answer4, answer5); 

私は以下のパイプ区切りの配列要素を形成するために一緒に&配列2 ARRAY1連結します。これを行う最も効率的な方法は何ですか？

@array3 = (test1|answer1, test2|answer2, test3|answer3, test4|answer4, test5|answer5); 

Answer 1

多分あなたはこれらのコードを使用することができます、ループは簡単です。

my @array1 = qw/test1 test2 test3 test4 test5/; 
my @array2 = qw/answer1 answer2 answer3 answer4 answer5/; 
my @array3 = map { $array1[$_]."|".$array2[$_] } 0..$#array1; 

これは、両方のアレイが同じサイズであることを前提としています。