BTW, you might also want to have a look at Writeup Formatting Tips.

rdfield

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

This is my present code
What i wanted to do is put this in to MLDBM.
The thing is, every place contains a
hash of people.
ie there are various persons for each name
place.
so i am not able to do it.
so if u cld be able to help me

From the docs:

Declaring an MLDBM hash:

use MLDBM;
use Fcntl;
$dbm = tie %o, 'MLDBM', 'testmldbm', O_CREAT|O_RDWR, 0640 or die $!;
[download]

and modifying an item:

$tmp = $mldb{key};            # retrieve value
$tmp->{subkey}[3] = 'stuff';
$mldb{key} = $tmp;
[download]

which in your case would be something like:

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;
[download]

(note this is untested...)

rdfield