#!/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);
}