Help for this page
Select Code to Download
Select
or
download this
$totals{$_} += $delta{$_} foreach( @fields );
Select
or
download this
use mapcar; mapcar { $_[0] += $_[1] } [@totals{@fields}], [@delta{@fields}];