...
$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()
{ ??? }
       

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use Tk;

my (%result_1,%result_2);

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

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

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

MainLoop;
sub weiter{
   print Dumper(\%result_1),"\n",Dumper(\%result_2);
}