foreach $mitem(@missing) { 
  
  $result=$t->search(-forwards,"**",'end');
  
  #print"\nThe start pos of the pattern:";
  #print "\n$result";
  
  $start=$result+.2;
  #print "\n$start";
  
  @chars=$t->get("$start","$start wordend");
  print "\nThe word:";
  print"\n@chars";
    
  #$t->tagConfigure("wrong",-foreground=>"red"); 
  #$t->tagAdd("wrong","$start","wordend");