if($checksuffix eq "0") {
    open(F, "data/suffixfiles.txt") || die "Cant't open data: 'data/suffixfiles.txt'!\n$!";
    flock(F,2) if($flock);
    @suffix = <F>;
    flock(F,8) if($flock);
    close(F);

    foreach $i (@suffix){
        chomp($i);
        $i =~ s/[\n\r]//g;
        if($FILE{'uploaddata01'} =~ m/\.$i$/i){
            $x = "1";
        }
    }

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