if($checksuffix eq "0") {
    open(F, "data/suffixfiles.txt") || die "Cant't open data: 'data/suffixfiles.txt'!\n$!";
    flock(F,2) if($flock);
    while(<F>) {
        chomp;
        s/[\n\r]//g;
        if($FILE{'uploaddata01'} =~ m/\.$_$/i){
            $x = "1";
        }
    }
    # flock(F,8) if($flock); //unflock ist nicht nötig
    close(F);

    &index("Datei besitzt ung&uuml;ltige Endung!") if($x ne "1");
}