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