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

用push 就可以，比如：

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

my @array_new

for (@array) {

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

}

my $lag = @array1

foreach(0..$lag){

my $n = $_

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

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

}

}

如果是将这一行插入到数组的最后一个单元中，直接使用push(@array,'值')，就可以了；

看你上面的内容应该是将不同的单词放到数组的不同单元中，且提供的内容“MagnoliophytaEricalesActinidiaceaeActinidia”是以半角“”做为分隔的，那么使用@array=split(//,'MagnoliophytaEricalesActinidiaceaeActinidia')就可以了；

例如（本例中用空格做为分隔）：

my $crt="MagnoliophytaEricalesActinidiaceaeActinidia"

my @array=split(/\s/,$crt)

结果：

@array[0]='Magnoliophyta'

@array[1]='Ericales'

@array[2]='Actinidiaceae'

@array[3]='Actinidia'

---