my $text;
  foreach $text(@array){
     $hash->{$text}++}