{
   no strict 'refs';
   my @incs = qw( index chapter index pages names );
   for my $i (@incs) {
      ${"total_$i"} += $$i;
   }
}

##</code><code>##

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