You could use a statement modifier:

$list1[$_] += $list2[$_] for 0..$#list1;
[download]

Assignment to a list of variables:

($some_value, $some_other_value, $this_var, $that_var)
    = @array;
[download]