Nochmal Perl (aber dringend)

[Nico]

Hallo liebe Surferinnen und Surfer!

Ich habe noch einmal eine Frage zu Perl:

Ich will Daten, die in einer DAT-Datei gespeichert sind, zusammenhängend aufführen. OK, das ist eine etwas doofe Erklärung, aber vielleicht versteht man es ja, wenn man den Teil des Sourcecodes sieht, den ich dafür evtl. verwenden wollte, der aber nicht klappt:

open(DAT,"dat.dat");
@dat = <DAT>;
close(DAT);

for(@dat)
{
($nick, $pwd, $email, $hp) = split(/;/, $_);
if($Formular{'nick'} eq $nick)
{
print "<ul>\n<li>$email</li>\n<li>$hp</li>\n</ul>\n";
}
}

Ich weiß auch in etwa, warum das nicht funktionieren kann, aber ich suche ine Lösung, mit der es Funktionieren kann.
Gibt es z.B. etwas, dass die Bedingung so darstellt:
"sobald"($Formular{'nick'} eq $nick)

oder muss ich es ganz anders darstellen?

Auf bald dann...