didn't showed the expeted results.

I did warn that the code was untested.

i have changed the my $c = substr $, 0, 1; line to my $c = substr $_, 0, 1;

Correct correction :)

but it stored all the values from the table into one file called as "names"

I assigned the first char to a variable $c, but then used $char everywhere else.

You should have received a message: Name "main::char" used only once: possible typo ...?

I've updated the post above to correct the errors you've pointed out, but there may be more.

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.

. i have modified your script and this worked out for me.

Be aware. Whilst what you've posted will work, re-opening and closeing your files for every line you write to them will make your program run 100 times more slowly. And it is completely unnecessary.

---

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.