Bin mir nicht sicher, ob Dir das weiterhilft:
open (DBAUSLESEN,"datenb.db")die "konnte nicht Gefunden werden";
@InData=<DBAUSLESEN>;
close(DBAUSLESEN);
lAnzahl=@InData;
for(lIndex=lAnzahl-1;lIndex>=;lIndex--;)
{
$zeile=@InData[lIndex];
@eing=split(/;§/,$zeile);
.
.
.
}
mfg. R. Potas