第2次: 第一个列表中取B, 第二个列表中取出2，第三个列表中取出alice
......
依次类推！
【例09】往指定的字符串中加字符
可以用List::MoreUtils中的insert_after子程序
use v5.10;
use List::MoreUtils qw(:all);
my @list = qw/This is a list/;
insert_after {$_ eq 'a'} "longer" => @list;
print @list; #This is a longer list
【例10】对两个列表进行操作，第一个列表平方后，和第二个列表求和
可以用List::MoreUtils中的pairwise子程序
use v5.10;
use List::MoreUtils qw(:all);
@m = (1..4);
@n = (100..103);
@x = pairwise { ($a*$a) + $b } @m, @n; #101 105 111 119
【总结】
如果上面的方式用普通的方法实现，需要多次循环遍历，很麻烦，而将复杂的算法，数据结构用C来实现并封装在List模块中，则可以实现很多看似复杂的功能，从中也可以看出Perl的强大之处在于CPAN，有众多的模块支撑！
