my $file = shift || croak "kein Dateiname in read2hash!";    # Eingabe: Dateiname
    warn "Jetzt lesen wir von Datei <$file>\n";