for (my $i = 0; $i <= $anzahl; $i++) {
    my $DatName = $Dateien[$i];         #Dateiname
    #Wenn Datei nicht geöffnet werden kann, mit der nächsten Datei fortsetzen
    open my $InputDatei, '<', $DatName or {say "Cannot open filename: $!";next;}
    { local $/ = undef; $daten = <$InputDatei>; }
    close $InputDatei;
    &Datenverarbeitung($daten);
}