...
$frame=$mw->Frame(-bg=>'white')->pack(-side=>'left');

foreach (qw/ Vorname: Nachname: Telefon: Email: /) {
            $frame->Label(-text=>$_)->pack();
            $frame->Entry(-textvariable=> \$results_1{$_})->pack();}

foreach (qw/ Vorname: Nachname: Telefon: Email: /) {
            $frame->Label(-text=>$_)->pack();
            $frame->Entry(-textvariable=> \$results_2{$_})->pack();}
....
$frame->Button(-text=> 'Save and Exit', -command =>sub {weiter}      )->pack(-side=>'bottom')

sub weiter()
{ ??? }