if ($male)
  {
   $hash{$nameplace}{$person}->[0]++;
  }
 else 
  {
   $hash{$nameplace}{$person}->[1]++;
  }