如何使用地图加入两个列表？

my @c = map { \"$a[$_]$b[$_]\" } 0 .. $#a;

List::MoreUtils

pairwise

#!/usr/bin/env perl

use strict;
use warnings;

use List::MoreUtils qw( pairwise );

my @a = ( \'one\', \'two\', \'three\' );
my @b = ( 1,     2,     3 );

my @c = do {
    no warnings \'once\';
    pairwise { \"$a$b\" } @a, @b;
};

pairwise

use B ();
use List::Util \'min\';

sub pairwise (&\\@\\@) {
    my ($code, $xs, $ys) = @_;
    my ($a, $b) = do {
        my $caller = B::svref_2object($code)->STASH->NAME;
        no strict \'refs\';
        map \\*{$caller.\'::\'.$_} => qw(a b);
    };

    map {
        local *$a = \\$$xs[$_];
        local *$b = \\$$ys[$_];
        $code->()
    } 0 .. min $#$xs, $#$ys
}

map