sub new {
    my ($caller, %arg) = @_;    #Konstruktoraufruf mit Skalar und Hash. 
    my $caller_is_obj = ref($caller); 
    #Was steht in $caller_si_object? Der Paketname? Was kann denn noch darin stehen?
    my $class = $caller_is_obj || $caller;  #Wird vielleicht klar, wenn ich die Zeile zuvor verstehe.

    no strict "refs";  #warum macht man das hier?

    my $self = bless [\%{"${class}::FIELDS"}], $class;   #Was ist das für ein erstes Argument???

    ...
    ..
}