use Fcntl qw(:flock); # ist bei jeder perl-version dabei!
    my $x;
    open F, "data/suffixfiles.txt" or die "Cant't open data: 'data/suffixfiles.txt'!
$!";
    flock F, LOCK_EX if $flock ;
    while(<F>) {
        y/ \r\n//d;
        $x = 1, last if($FILE{'uploaddata01'} =~ m/\.$_$/i);
    }
    close F ;

    myindex("Datei besitzt ungültige Endung!")  unless $x;
}