Select Code to Download

{
   no strict 'refs';
...
      ${"total_$i"} += $$i;
   }
}

my %incs = (index   => [ \$index,   \$total_index ],
            chapter => [ \$chapter, \$total_chapter ],
...
            names   => [ \$names,   \$total_names ] );
my @incs = qw( index chapter index pages names );
${$incs{$_}->[1]} += ${$incs{$_}->[0]} for (@incs);