Perl-Vergleich für zwei Variabeln gleichzeitig

[HP-User]

Abend Forum

Angenommen ich habe eine CSV-Datei mit folgendem Inhalt:
Obstnummer(Zahl einmalig/Identifizierer), Obsthaltbarkeit(Tage), Obstfarbe, Obstname

Also:
1001, 10, grün, Apfel
1002, 5, rot, Kirsche
1003, 12, gelb, banane
usw...

Jetzt ist es mir möglich, nach einem Kriterium zu filtern (Obstname):

zuerst die Zeile einlesen
my $zeile = <LESER>;

Zeile aufsplitten:
my ($Obstnummer, $Obsthaltbarkeit, $Obstfarbe, $Obstname) = split(/,/,$zeile);

Dannach vergleichen:
if($Obstname eq "Banane") {mach was in diesen geschweiften Klammern steht}

-> Alle Bananen werden selektiert.Bis hierher kein Problem.

Was, wenn man aber alles Obst herausfiltern will, daß zwingend "rot" sein muss _und_ genau eine Haltbarkeit von "5" Tagen hat. Also beide $-Variablen ($Obstfarbe und $Obsthaltbarkeit) mussen zutreffen, damit die Anweisung in der Klammer ausgeführt werden. Wie schreibe ich das am besten?

Gruß HP-User