my @foo = my @bar = qw(1 2 3 4);
my @foobar;

$foobar[$_] = $foo[$_] + $bar[$_] for 0 .. $#foo;