Ich versteh die Logik hierbei nicht

[xNeTworKx]

Hello,
kleines Problem:
Ich frage das Verzeichnis nach der Datei datenbank.txt ab, falls diese nicht gefunden wird, wird das Array @daten logischerweise nicht mit Daten gefüllt und ist somit leer.
So die Datei datenbank.txt existiert jetzt zur Probe nicht, und ich will mir zur Probe den Text "Leer" ausgeben lassen, falls @daten leer ist, aber das tut er nicht. Wenn ich jetzt auf if (@daten ne '') gehe, gibt er mit "Leer" aus. Kann mir jemand sagen warum ?

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

use CGI;
$query = new CGI;
@daten = '';
$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,"datenbank.txt") or die "Kann Datenbank nicht oeffnen : $!\n";
    @daten = <FILE>;
    }
  }
  if (@daten eq '')  {
  print 'Leer!';
  }