<?
$f=fopen('key.txt','r') or die ("Ощибка открытия файла");
$key=array();
while(!feof($f)){
$key.=fgets($f);
}
fclose($f);
$words=explode(" ",$key);

for($j=1;$j<sizeof($words);){
for($i=1;$i<sizeof($words);){
trim($words[$i]);
trim($words[$j]);
echo $words2[]=$words[$j].' '.$words[$i]."<br>";

$i++;
}
$j++;
}
$iz=0;
foreach($dwords2 as $val=> $key){

if(strpos($key,"retro"))
$iz++;

}
echo sizeof($words2);
echo "<br>".$iz;
$f=fopen('result.txt','w') or die(" Не могу открыть файл");
foreach($words2 as $k=>$val){
trim($val);
fwrite($f,$val);

}
fclose($f);
?>