@a=qw(1 2 3 4);
@b=qw(1 2 3 4);
@c=(); 

$c[@c] = $a[@c] + $b[@c] while defined $a[@c] and defined $b[@c]; 

print "@c \n";