Hallo,
open(DB, "<$deine_datei") || die "Konnte $deine_datei nicht oeffnen";
@arr = <DB>;
close DB;
open (DB,"$deine_datei") or die "Konnte $deine_datei nicht oeffnen : $!\n";
Das < ist nicht notwendig. Ausswerdem sollte man immer $! angeben, um Fehler noch besser erkennen zu können.
$xNeTworKx.