perl - 配列の要素をそれぞれ2回並べて印刷するにはどうすればよいですか？

Question

ファイルのヘッダーを書き込むための次のコード行がありますが、配列@orderの各要素を2回並べて出力したいと思います。例：$ 1 $ 1 $ 2 $ 2 $ 3 $3...同じ名前の出力ファイルの列の各ペアを持つように。

print(join("\t", "Case_ID", "State", "Ind", "DoB", @order) . "\n");

簡単なことをすることはできますか、または印刷する前に要素を繰り返すために配列をループする必要がありますか？

ありがとう！

Answer 1

とにかくループする必要がありますが、構文上の優雅さのためにマップを使用できます。

# map { $_, $_ } @order


print join("\t", "Case_ID", "State", "Ind", "DoB", map { $_, $_ }  @order))
       . "\n";