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

##</code><code>##

  for my $i ( 0 .. $#AoH ) {
    for my $role (sort keys %{ $AoH[$i] } ) {
      my $tcount = $AoH[$i]{$role} + $AoH[$i]{$role};
      print "$role=$tcount\n";
    }
  }