thanx for ur help ..! am done with my code. Text::GenderFromName module was helpful. here's the code which i have written.

#!/usr/bin/perl

use DBI;

my $dbh = DBI->connect("DBI:mysql:database=email_categorisation;host=l
+ocalhost;", "root", "", {'RaiseError' => 1});
use Text::GenderFromName;

$query = "select email  from emails_1";
$sth = $dbh->prepare($query);
$email_record = $sth->execute();
$count =0;

     while(($email) = $sth->fetchrow_array())
       {
        #print "--$email--";
        $email =~/(.*\.*.*)\@(.+)/;
        my $user = $1;
        #print $user."  --  ";
        $user=~s/[0-9|\_|\.]//g;
        #print $user."  --  ";
        #matching
        $l = length($user);
        #print $l."\n\n";
        $flag=1;
        for ($i=0;$i<$l;$i++){
                if($flag==1){
                my $removed_last_letter = substr( $user, $i);
                #print $removed_last_letter."\n";
                $l2 = length($removed_last_letter);
                for ($j=0;$j<$l2;$j++){
                         my $removed_first_letter = substr ($removed_l
+ast_letter, 0,$l2-$j);    # returns '' (no warning)
                  #       print $removed_first_letter."\n";
                         if(length($removed_first_letter)>3){
                                my $gender = &gender($removed_first_le
+tter) || '';

                                    if ($gender eq 'f') { print "Email
+ : $email                   Matched with : $removed_first_letter     
+                   Gender: Female\n"; $flag=0;$count++; }
                              elsif    ($gender eq 'm') { print "Email
+ : $email                   Matched with : $removed_first_letter     
+                   Gender: Male\n"; $flag=0; $count++;}
                                #else                   { print "$user
+: UNSURE\n"; break; }
                        }
                }
                }
        }

      }
print "$count";
regards,
samson.
[download]