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