use Lingua::EN::MatchNames;
$score= name_eq( $firstn_0, $lastn_0, $firstn_1, $lastn_1 );

##</code><code>##

sub NameComp () {
        foreach $curusername (@curuserlist)
        {
                my ($firstn_0, $lastn_0)= split '\s+', $_[0];
                my ($firstn_1, $lastn_1)= split '\s+', $curlookup{$curusername};
                print "comparing $firstn_0, $lastn_0 to $firstn_1, $lastn_1\n";
                my $name_score = name_eq($firstn_0, $lastn_0, $firstn_1, $lastn_1);
                print "$name_score\n";
                if ($name_score >= 80){
                        print "Found Match $curlookup{$curusername}\n";
                }
        }
}