How can I join two lists using map?

Question

I have such code in Perl:

#!/usr/bin/perl -w

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

I want to see in result this: @c = ('one1', 'two2', 'three3'); Is there way I can merge these lists into one?

Answer 1

Assuming that you can guarantee the two arrays will always be the same length.

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

Answer 2

As an alternative, you can use pairwise from List::MoreUtils:

#!/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;
};