...
$frame_kontakte_haupt = $hauptfenster->Frame(
                                        -borderwidth => "2")
                                        ->grid(-sticky => "nw");
...
$frame_kontakte_haupt->Button(-text => '<<', -command => [\&eintrag_zurueck])->grid(
            $name_test = $frame_kontakte_haupt->Label(-text => "Nachname:"),
            $frame_kontakte_haupt->Entry(-textvariable=> \$ref_old->{nachname}),
            $frame_kontakte_haupt->Label(-text => "Vornamen:"),
            $frame_kontakte_haupt->Entry(-textvariable=> \$ref_old->{vorname}),
            $frame_kontakte_haupt->Button(-text => '>>', -command => [\&eintrag_vor]),
            $frame_kontakte_haupt->Label(-text => "Zimmer / Bett:"),
            $frame_kontakte_haupt->BrowseEntry( -variable => \$ref_old->{zimmerbett}, -colorstate => 'white',),
            $frame_kontakte_haupt->Label(-image => $potrait, -width => "90", -height => "120"),
            -sticky => "w");
            my @values = lies_spalten_werte ($dbh, "kontakte", "anrede");