如何用Perl实现这个数组插入？

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

my @array_new

for (@array) {

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

}

unshift 新元素加在最前

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

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