$totals{$_} += $delta{$_} foreach( @fields );

##</code><code>##

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