$re{"$first$last"}||="(?{$acct})$first\\s*$last|(?{$acct})$last,?\\s+$first";

         $first=substr($origfirst,0,1);
         $re2{"$first$last"}||="(?{$acct})\\b$last,?\\s+$first" 
            unless exists $hExclude->{lc $origlast} or length($last)<4;