#!/usr/bin/perl
use strict;
use warnings;
use TK;
use verwaltung;

my $gui=make_gui();

for my $schueler_id ( verwaltung::schueler_list() )
{
  print_schueler_daten($gui, verwaltung::schuler_daten($schueler_id))
}

sub make_gui
{
  #...
}

sub print_schueler_daten
{
  my $gui=shift;
  #...
}