%labels = {
        "lab1" => $frm_name->Label(-text=>"Server name:"),
        "ent1" => $frm_name->Entry(),
        "lab2" => $frm_name->Label(-text=>"Server domain:"),
        "ent2" => $frm_name->Entry(),
        "lab3" => $frm_name->Label(-text=>"User name:"),
        "ent3" => $frm_name->Entry(),
        "lab4" => $frm_name->Label(-text=>"Password:"),
        "ent4" => $frm_name->Entry()
    };
    for(1..4) {
        $labels{'lab'.$_}->pack();
        $labels{'ent'.$_}->pack();
    }