Perl-Vergleich für zwei Variabeln gleichzeitig

[HP-User]

Hallo nochmal
Mir kam da so ne Idee - ein wenig Tricky, aber was anderes fällt mir nicht ein:

Code:
---------------------------------------------

Anfang:
->einlesen der nächsten Variable
if($Obstfarbe eq "rot") {goto SchonmalRot;}
goto Anfang;

SchonmalRot:
if($Obsthaltbarkeit eq "5") {goto BeidesOK;}
goto Anfang;

BeidesOK:
Anweisungsblock für Listenspeicherung

->Normaler Programmweiterlauf...

----------------------------------------------

Erst mal ein Wert checken, wenn gut zur nächsten "Checkstation springen.
Kann man das so machen, oder geht es besser?

Gruß HP-User