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