Tk::grid($mw->Label(-text => "..."),
           $mw->Entry(-textvariable => ...));
Tk::grid($mw->Label(-text => "..."),
           $mw->Entry(-textvariable => ...));
....