Select Code to Download

  my %total;
  my %subhash;
...
      print "$junk\n";
    }
}

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