#!/usr/bin/perl

use warnings;
use strict;

use Data::Dumper;


my %Studenten = ();

my $i = 1;

if ($i) {

  #hier soll der HoH hinein


}

print Dumper($Studenten);