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

while(! eof(LESER)){
                    my $zeile = <LESER>;
                    my (@auswahlpunkte) = split(/,/,$zeile);
                    

for my $auswahlpunkt (@auswahlpunkte) {
$auswahlpunkt = ucfirst ($auswahlpunkt);
print <<"ENDE";
<option value='category="$auswahlpunkt"'>$auswahlpunkt</option>
ENDE
                                       }
}

close(LESER);