in reply to Perl/TK dialog boxes

$next3->focus; or $next3->focusForce;
Read all about it in 'perldoc Tk::focus'.