усовершенствование алгоритма)

Всем доброе утро! У меня друг - логопед, ему нужна программа, которая находила слова различающиеся только одной буквой. Я решил ему помочь)
Вот код:

Код (Text):

1. <?php
2. $startTime = date("s");
3. $numfor = 0;
4. $file = 'db.txt';
5. $files = fopen($file,'r');
6. $buffer = fgets($files, 6000);
7. $global = array();
8. $db = $buffer;
9. $array = explode(" ",$db);
10. $alfavit = array("а","б","в","г","д","е","ж","з","и","й","к","л","м","н","о","п","р","с","т","у","ф","х","ц","ч","ш","щ","ъ","ы","ь","э","ю","я");
11. for($i = 0; $array[$i]; $i++){
12.     $numfor++;
13.     $slovoArray = array();
14.     $slovo = "";
15.     for($d = 0;$string = mb_substr($array[$i], $d, 1, 'UTF-8');$d++){
16.         array_push($slovoArray,$string);
17.         $slovo .= $string;
18.     }
19.     for($c = 0; $slovoArray[$c]; $c++){ // пока есть буквы в слове
20.         $original = $slovoArray[$c];
21.         for($j = 0; $alfavit[$j]; $j++){ // пока есть буквы в алфавите
22.             $numfor++;
23.             $slovoArray[$c] = $alfavit[$j];
24.             $read = implode("", $slovoArray); //нашел эту функцию и убрал ниже стоячий код, но эта функция работает не быстро как я думал...
25.             //for($r =0; $slovoArray[$r]; $r++){ // формируем новое изменненое слово
26.             //  $numfor++;
27.             //  $read .= $slovoArray[$r];
28.             //}
29.             if(array_search($read,$array) !== false && $slovo != $read){
30.                     if(!is_array($global[$slovo])){
31.                         $global[$slovo] = array();
32.                         array_push($global[$slovo],$read);
33.                     }else{
34.                         array_push($global[$slovo],$read);
35.                     }
36.                     //echo "<b style='color:red'>".$slovo.":".$read."</b></br>";
37.             }else{
38.                     //echo $read."</br>";
39.             }
40.             $read = "";
41.             $slovoArray[$c] = $original;
42.         }
43.     }
44. }
45. $endtTime = date("s");
46. echo "<h2>start time : ".$startTime.", endtime = $endtTime</h2>";
47. echo "<pre>";
48. print_r($global);
49. echo "</pre>";
50. echo "<h1>количество операций: $numfor, кол. слов в массиве = ".count($array)."</h1>";
51. ?>

Дело в том что эта функция ест очень много ресурсов, и больше чем 1000 слов посчитать не может (думает более 30 с.). Подскажите, кто знает как бы ее усовершенствовать, что-бы не ела так много ресурсов? Заранее всем огромное спасибо!