Hai Thank you again for your reply. i have modified your script and this worked out for me. Here is the script that i have used. partNames.pl

while( <> ) {
    my $c =  substr $_ ,0, 1;
    #print "C value --> ".$c."\n";
    $file = "names".$c;
    &file_write($file,$_);
}

sub file_write(){
 $_file = shift;
 $_data = shift;
 open (DATA_FILE,">>$_file") or die("Cannot open a file $_file ->$!\n"
+);
 print DATA_FILE "$_data";
 close(DATA_FILE);
}
[download]

uniqNames.pl

for my $fname ( glob 'names*' ) {
    my %uniq;
    open my $fh, '<', $fname or die $!;
    while( <$fh> ) {
        print unless exists $uniq{ $_ };
        $uniq{ $_ } =  1;
    }
}
[download]

Thank you once again for your help.