@a = (1,2,3);
@b = (4,5,6);
@result = map {$a[$_]+$b[$_]} 0..$#a;