perl将多个相同的数组合并成一个数组

在Perl中，你可以使用`@array = (@array1, @array2)`这样的语法来合并两个或更多的相同类型的数组。这里的`@array`是你想要的结果数组，而`@array1`和`@array2`是要合并的源数组。如果你有多个数组需要合并，可以依次添加：

my @result;
push(@result, @array1);
push(@result, @array2);
# 如果还有其他数组...
push(@result, @arrayN);

# 现在$result就是所有数组合并后的结果

如果你想保留每个数组元素之间的顺序，这种方法非常适合。如果需要更简洁的表达，也可以直接使用`@array = ()`初始化一个空数组，然后使用`push`函数添加元素：

my @result = ();
push(@result, @array1) if defined @array1;
push(@result, @array2) if defined @array2;
# ... 并以此类推

# 结果数组包含了所有数组的内容，保持了原数组的顺序