while(<DATA>){
chomp;
  $hash{$_}++ for split;  
}