use mapcar;
    mapcar { $_[0] += $_[1] } [@totals{@fields}], [@delta{@fields}];