my %total;
foreach my $subhash (values %all_files) {
  foreach my $key (keys %$subhash) {
    $total{$key} += $subhash->{$key};
  }
}