for my $division (values %AG) {
     # ...
     for my $person  (@$division) {
          # ...
}