perl ：在数组@array中增加新的元素有几种方法？请详细一一列出，谢谢！

push 新元素加在最后

unshift 新元素加在最前

$array[$#array] = newvalue 直接赋值新增最后一个元素

@array = (newvalue1,@array,newvalue2) 直接赋值在最前和最后新增元素(可多加)

my $lag = @array1

foreach(0..$lag){

my $n = $_

if($array2[$n] =~ />(\w+)/){

$array2[$n] = ">$array1[$n]$1"

}

}

用push 就可以，比如：

my @array = ("A", "B", "C", "D", "E")

my @array_new

for (@array) {

push (@array_new, ($_, 1))

}

---