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