for(1..(scalar keys %entries)){
#  $mw->eventGenerate('<Tab>');
$entries{$_}{'entry'}->focusForce;
  $mw->eventGenerate('<KeyRelease>');
#  $mw->idletasks;
  $mw->after(100);
  $mw->update;
}