Select Code to Download

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

sub NameComp () {
        foreach $curusername (@curuserlist)
...
                }
        }
}