my @array1 = (3,4,6,5,8);
my @array2 = (2,2,4,5,1);

my @mults = map { $array1[$_] * $array2[$_] } 0..$#array1;
print "@mults\n";
[download]

Here's another example using pairwise from the lovely List::MoreUtils package...

use List::MoreUtils qw( pairwise );

my @array1 = (3,4,6,5,8);
my @array2 = (2,2,4,5,1);

my @mults = pairwise { $a * $b } @array1, @array2;
print "@mults\n";
[download]

Wow, how can pairwise tell where the end of 1st array is? There was always the problem feature that regardless whether you write

my @array1 = (3,4,6,5,8);
my @array2 = (2,2,4,5,1);
[download]

or

my @array1 = (3,4,6,5,8,2,2,4);
my @array2 = (5,1);
[download]

using it with coma always results in flattened list:

@array1,@array2
[download]

is equivalent to

(3,4,6,5,8,2,2,4,5,1)
[download]

and yet pairwise deals with it:

c:\>perl -le "use List::MoreUtils qw/pairwise/; @a=(1..5);@b=(11..15);
+ print for pairwise {$a+$b} @a, @b"
12
14
16
18
20

c:\>perl -le "use List::MoreUtils qw/pairwise/; @a=(1..5, 11,12);@b=(1
+3..15); print for pairwise {$a+$b} @a, @b"
14
16
18
4
5
11
12
[download]

It uses a prototype of &\@\@. That means the two arrays get implicitly turned into arrayrefs by the Perl parser. The body of the sub just sees a coderef and two arrayrefs - not a flattened list. See perlsub.

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

New Perlmonk:

Where are you getting stuck?

...roboticus

When your only tool is a hammer, all problems look like your thumb.

Hello, and welcome to the monastery New Perlmonk.

Please have a look at How (Not) To Ask A Question. The amount of effort put forth in the asking of your question will usually correlate with that of the answers you receive. You might also read through Choosing a username.

Perlintro (Variable Types) in conjunction with Arrays: A Tutorial/Reference will be a good start at understanding how arrays work and learning how to work with their elements.

map will help you to understand tobyink's solution.

use warnings;
use strict;
my @array1 = (3,4,6,5,8);
my @array2 = (2,2,4,5,1);

my $num = scalar @array1;
my @answers;
for (my $x = 0; $x < $num; $x++)
{
        push(@answers, $array1[$x]*$array2[$x]);
}
[download]

Or use a for ( or foreach ) loop like so:

my @answers;
for my $x ( 0 .. $#array1 ) {
    push @answers, $array1[$x] * $array2[$x];
}
[download]

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

Point to note, the for loop uses the construct of scalar(@arr) and the map operation uses the special variable $# (+ arrayname) $#arr to determine the length of the list being implemented within the operations.

where @arr = (1,2,3,4)

scalar(@arr) returns the number of items in the list scalar(@arr) = 4

$#arr returns a zero indexed length of items list $#arr = 3

$#arr returns the highest index of the array $#arr = 3

The C style for loop has the condition of the increment being lower than scalar(@arr) where;

scalar(@arr) = 4, ( $i = 0, $i < scalar(@arr), $i++ ) = 0,1,2,3

The perl map operation however, inserts the incremented counter for the $_ variable where;

$#arr = 3, 0..$#arr = 0,1,2,3

updates to definition of $# variable as result of reply from Anomolous.

Should the $ARRAY_BASE special variable $[ be set to other than the default of 0. The $#arr may return an offset to the zero indexed result that you are probably not expecting. Generally use of this variable is frowned upon at best. However.. dah dih dah dih.

$#arr returns a zero indexed length of items list $#arr = 3

I think it is fundamentally misleading to refer to what  $#array returns as a "length". Rather, I would say it is the highest index of the array, and depends on what the $ARRAY_BASE special variable (aka $[ – see perlvar) has been set to (but don't do that!).

Thanks Anomolous, point noted. I should also reflect that it is not truly the map operator that is using the $#arr construct to obtain the highest array index as such, rather it is being used by the .. range operator. As map expects a list of some description to work with after the modifiying operation. In this case we give the list in scalar context of a range, much like the for iterator, so perl goes ah yah, this is some funky for loop right, and cooly proceeds.

I will now look into how the $ARRAY_BASE special variable affects the $# variable. I would not have thought a difference would be made, being as the highest index of an array is always going to be the highest index? (unless $[ is set higher perhaps... hmm...).

*Footsteps echo quietly away as Coyote trundles off into the dark echoing corridors of the echosome vaults.