foreach $word (split){
   if($word =~ /^[a-zA-Z]([a-zA-Z]*|-[a-zA-Z])*$/){
           $count{$word};
}