for my $division (sort keys %AG) {
    print "**$division**\n";

    my $cnt = 0;
    print "nr|    NAME    |           POSITION           |GRD|COUNTRY|PWD|DATE_OF_BIRTH|AGE|FEMALE|VACANT|\n";
    for my $person (@{ $AG{$division} }) {
        printf "%2d|%-12s|%30s|%3s|%7s|%3s|%13s|%3s|%6s|%6s|\n",
                $cnt,
                $person->{NAME},
                $person->{POSITION},
                $person->{GRADE},
                $person->{COUNTRY},
                $person->{PWD},
                $person->{DATE_OF_BIRTH},
                $person->{AGE},
                $person->{FEMALE},
                $person->{VACANT};
        $cnt++;
    }

}