open(LESER, "<data/beispieldatei.csv");
flock(LESER, LOCK_SH);

while(! eof(LESER)){
                    my $zeile = <LESER>;
                    my ($auswahlpunkt) = split(/,/,$zeile);
print <<"ENDE";
<option value='category="$auswahlpunkt"'>$auswahlpunkt</option>
ENDE
}

close(LESER);