Hi
wenn egal waere, dass $Liste1 geschrottet wird:
und falls @Liste1 überleben soll, dann grep's "Zwillingsbruder" map bequemen:
@Liste1 = ("Code1,Name1 (Zusatz1)","Code2,Name2 (Zusatz2)");
$Name = "Name2 (Zusatz2)";
@Datensatz = map {/(.+),/} grep {/\Q$Name/} @Liste1;
print @Datensatz;
prost
rülps :)
Kurt