Parameter einlesen

[Beat]

my ($p1, $px, $p123, $pwy) = @_;

Werden hier nur die vier ersten Parameter eingelesen, auch wenn 5 angegeben wurden?
Falls ja, ginge dann nicht auch

if ($p1 eq 'aaa') {
      my $optional = shift;
}

Was sagt dein Selbstversuch?

Strebe eine Entwicklungsumgebung an, welche dir solche Testfälle selbst kurz beantwortet.

mfg Beat