use Tk;

$mw = new MainWindow;

foreach (qw/Vorname Nachname Strasse PLZ Ort/) {
       $mw->Label(-text => $_)->pack();
       $mw->Entry(-textvariable => \$results{$_})->pack();
}
$mw->Button(-text => "Ok",
            -command => sub { print "$_ => $results{$_}\n" for keys %results })->pack();
$mw->Button(-text => "Exit", -command => sub { exit } )->pack();

MainLoop;