my @Divisions = qw(ABER BERF CECC DADD);
my @rows;
my %AG;
my $Rec= {};
my %positions;

my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1},encoding => "utf-8");

 
 #CSV file with comma delimited data
 
 open my $fh1, "<", "test.csv" or die "test.csv: $!";
 
 while (my $row = $csv->getline ($fh1)) {
     # do something with @$row


     
     
     if ($row->[12]) {
        push @rows, $row;
     
     }
     
     else {
        
        push @rows, $row;
     }
     
     
     }
 close $fh1 or die "data.csv: $!";



    
    
 foreach my $rec (@rows) {
        
        
        
        
      foreach my $dept (@Divisions) {
        
        
            if ($rec->[14] =~ /^$dept/ && $rec->[15] =~ /^A\W[1-5]|B\W[1-2]/) {
      
            
            my $Rec = { 
                          
                             
                             SECTION=>$rec->[0],
                             GRADE=>strip_hyphen($rec->[1]),
                             POSITION=>$rec->[2],
                             NAME=>invert_name($rec->[3]),
                             AGE =>convert_date($rec->[4]),
                             GENDER=>$rec->[5],
                             
           };
            

            push @{$AG{$rec->[10]}},$Rec;
            

            } 
 
            
            
            }
      
 }
      
      

 
foreach my $A (sort keys %AG) {
   
   
   foreach my $p (@{$AG{$A}})  {
          
        print $p->{'GRADE'}," ", $p->{'NAME'}," ",$p->{'POSITION'},$p->{'AGE'}," ",$p->{'GENDER'}, "\n";
           
   }
   
}