Ich versteh die Logik hierbei nicht

[xNeTworKx]

Hallo, danke für eure Hilfe,

Ich habs jetzt folgendermaßen gemacht:

#!C:/Perl/bin/Perl.exe -w

use CGI;
$query = new CGI;
$verzeichnis = ".";

print $query->header;

opendir(DIR, "$verzeichnis") or die "Verzeichnis kann nicht geoeffnet werden : $!\n";
  while ($file = readdir(DIR))  {
    if ($file =~ /^datenbank.txt$/)  {
    open(FILE,"$verzeichnis/datenbank.txt") or die "Kann Datenbank nicht oeffnen : $!\n";
    @daten = <FILE>;
    }
  }
$ae = @daten;
if ($ae == 0)  {
print "Leer!\n";
}

So gehts zwar, aber ich versteh das mit @daten eq '' oder "" noch nicht ganz.
Wie kann ich eigentlich "Falls Array leer ist" sagen? if (@array ???