$text='А А Б Б А Б А';
$a=explode(' ',$text);
for ($i=0;$i<count($a);$i++) $b[$a[$i]]++;
print_r($b);

function createKeywords($text) {
	global $metatags;

	$keyword_count = 20;
	$newarr = array ();

	$quotes = array( "\x27", "\x22", "\x60", "\t","\n","\r","'",",",".","/","¬","#",";",":","@","~","[","]","{","}","=","-","+",")","(","*","&","^","%","$","<",">","?","!", '"' );
	$fastquotes = array( "\x27", "\x22", "\x60", "\t","\n","\r",'"',"'", "\\", '\r', '\n', "/","{","}","[","]");

	$text = str_replace($fastquotes, '', trim(strip_tags(str_replace('<br />', ' ', stripslashes($text)))));
	$metatags['description'] = substr($text, 0, 190);
	
	$text	= str_replace($quotes, '', $text); 
	$arr	= explode(' ', $text);
	
	foreach($arr as $word) {
		if (strlen($word) > 4) $newarr [] = $word;
	}
	
	$arr = array_count_values ($newarr);
	arsort ($arr);

	$arr = array_keys($arr);
	$total = sizeof($arr);
	
	$arr =	array_slice($arr, $offset, $keyword_count);
	$metatags['keywords'] = implode (', ', $arr);
}

function keywords($_text)
{ 
$word_length_min=4;// минимальное слово
$crc = substr(abs(crc32($_text)), 0, 1);
$words_counter=4;// количество ключевых слов
if ($crc < 4) {
	$words_counter = 3;
} elseif ($crc > 6) {
	$words_counter = 5;
}
$meta=true;// true - возвращает готовый мета тег, иначе будет массив
	$search=array ("'ё'",
  "'<script[^>]*?>.*?</script>'si", // Вырезается javascript
  "'<[\/\!]*?[^<>]*?>'si", // Вырезаются html-тэги
  "'([\r\n])[\s]+'", // Вырезается пустое пространство
  // Замещаются html-элементы
  "'"'i", "'&'i","'<'i","'>'i","' 'i","'&iexcl;'i","'&cent;'i","'&pound;'i","'©'i","'&#(\d+);'e");
  $replace=array('е',' ',' ',"\\1 ",'" ',' ',' ',' ',' ',chr(161),chr(162),chr(163),chr(169),"chr(\\1)");
  $text=preg_replace($search,$replace,$_text);// избавляемся в тексте от всякой html фигни
  // по каким то причинам жопы в preg_match_all приходится извращаться с кодировкой
  //print_r(search_file_kod($text));
  preg_match_all("#([a-zA-Zа-яА-Я0-9_]+)#si",strtolower($text),$words_all);// отбираем из текст слова (из кодирвоки cp1251)
  // массив стоп слов, которые включать по любасу не нужно
  $words_stop=array('','будут','этого','иначе','теперь','были','свое','такие','реже','своего','смогут','этим','многие','вещь','заключается','между','прибегают','доставить','используют','следовательно','определяет','который','свои','таким','образом','такая','такой','место','слишком','больше','сегодня','несколько','тебе','этот','которого','будит','него','открыть','новой','новом','почему','потому','чтобы','раза','которая','являются','которые','будь','требует','одном','часто','стал','наши','должно','этом','сколько','каким','только','требуется','знает','является','однако','могут','течение','некоторые','должны','вашего','будете','сделать','просто','себя','примерно','говорю','никогда','раньше','выбрал','столь','передо','мной','начать','любых','наиболее','помочь','сейчас','каждый','одной','делать','около','среди','основном','каждых','считают','была','ходе','наших','выше','говорит','поскольку','число','стали','протяжении','знают','ваши','можете','сделал','лучшей','быть','взять','собой','года','образной','основе','никак','имеет','самым','может','написать','очень','можно','могла','свой','будет','было','более','могли','получилась','легко','нельзя','после','себе','много','как','для','что','или','это','этих','всех','вас','они','оно','еще','когда','где','эта','лишь','уже','вам','нет','если','надо','все','так','его','чем','при','даже','мне','есть','раз','два','аля','нас','тем','через','многие','многое','также','обладают','того','существуют','детей','таких','кроме');
  $kk=array(); $cc=array(); $ii=0;// временные переменные
  $words_count=sizeof($words_all[0]);// узнаем общее количество слов в тексте
  for($it=0;$it<$words_count;$it++)// пройтись по всем словам
  { $val_win=strtolower($words_all[0][$it]);// преобразуем все к маленькому регистру, ибо поисковички все равно регистры не отличают
    $len=strlen($val_win);// определяем длину слова
    if ($len<$word_length_min) { continue; }// если слово меньше минимума, то не включаем в список подсчета
    $val_utf=$val_win;// конвертируемся обратно в utf
    if (array_search($val_utf,$words_stop)) { continue; }// если слово является стоп словом, то не включаем в нужный список
    $id=array_search($val_utf,$kk);// проверка на наличие слова уже в списке
    if ($id>0)// если в списке уже есть, то
    { $cc[$id]++;// увеличиваем количество
    }
    else// если нет в списке
    { $kk[$ii]=$val_utf;// записываем слово
      $cc[$ii]=1;// кол-во в тексте
      $ii++;
    }
  }
  $c=sizeof($kk); for($it=0;$it<$c;$it++) { $ww[$kk[$it]]=$cc[$it]; }// преобразуем весь результат к единому массиву
  arsort($ww);// сортируем массив по кол-ву слов
  $keywords=array();
  $it=0;
  foreach ($ww as $val=>$key)
  { if ($it>=$words_counter) { break; }
    $keywords[$it]=$val;
    $it++;
  }
  if ($meta)
  { $c=sizeof($keywords);
    $r='';
    for($it=0;$it<$c;$it++)
    { if (($it+1)==$c) { $r.=$keywords[$it]; } else { $r.=$keywords[$it].','; }
    }
    $r.='';
  }
  else
  { $r=$keywords;
  }
  return $r;
}