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

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

sub print_schueler_daten
{
  #...
}