Parameter einlesen

[Toni]

Hi,
meine Unterroutine hatte bisher 4 Parameter und die habe ich gelesen mit
my ($p1, $px, $p123, $pwy) = @_;
Jetzt erwartet sie bei einem bestimmten Wert von $p1 einen 5. Parameter.
Wie lese ich diesen am besten ein?
if ($p1 eq 'aaa') { ?????? }
Danke!