my ($men, $women);
my $m = 0;
my $w = 0;   
for my $i ( 0 .. $#$AoH ) {
   if ($AoH->[$i]{gender} eq "M") {
      $men->[$m] = $AoH->[$i];
      $m++;
   } else {
      $women->[$w] = $AoH->[$i];
      $w++; 
   }
 }
 
my $template->param( men   => $men,
                     women => $women );