Parameter einlesen

[Toni]

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;
 }

?
Gruß
Toni