my @woerter split / /,$text;
foreach(@woerter){
 get "Wort!=$_";
  if($_amount==0){
   mod "Id==$_id",["Anzahl",++$Anzahl];
  }
  else{
   put ["Wort",$_,"Anzahl","1"];
  }
}