in reply to Adding two lists together

use List::MoreUtils 'pairwise';

pairwise { $a += $b } @list1, @list2;

[download]

Replies are listed 'Best First'.
Re^2: Adding two lists together
by toolic (Bishop) on Nov 05, 2009 at 01:03 UTC
    ... and to suppress the annoying warnings: 
    use strict;   
use warnings;
use Data::Dumper;
use List::MoreUtils qw(pairwise);

my @list1 = (1 .. 5);
my @list2 = (11 .. 15);
{
    no warnings;
    pairwise { $a += $b } @list1, @list2;
}
print Dumper(\@list1);

__END__
$VAR1 = [
          12,
          14,
          16,
          18,
          20
        ];

    [download]
    List::MoreUtils
[reply]
[d/l]

In Section Seekers of Perl Wisdom