sub init_personen{
  my @personen;
  $personen[0]{ vorname } = "Hugo";
  $personen[0]{ nachname } = "Schmitt";
  $personen[0]{ stellung } = "Vorsitzender";
  return @personen;
}