my %total;
  my %subhash;
  foreach my $subhash (values %all_files) {
    foreach my $key (keys %$subhash) {
      my $junk = $total{$key} + $subhash{$key};
      print "$junk\n";
    }
}