use MLDBM;
use Fcntl;
$hash = tie %o, 'MLDBM', 'testmldbm', O_CREAT|O_RDWR, 0640 or die $!;
...
$tmp = $hash{$nameplace};
if ($male) {
   $tmp->{$person}[0]++;
} else {
   $tmp->{$person}[1]++;
}
$hash{$nameplace} = $tmp;