Naja was heist bessere oder sinnvollere. Ich sag mal das ist gewöhnungssache. Ich find die Parameterübergabe gut.
Deine Ausgabe deines Tests ist auch absolut nachzuvollziehen. es gibt auch noch die Spezial variable @_ wo alle übergabeparameter enthalten sind.
my ($p1,$p2,$p3) = @_;
Oder du nimmst dir die Parameter einzeln aus dem Array mit
my $p1 = shift @_; # oder einfach nur shift; @_ nimmt shift implizit
my $p2 = shift;
my $p3 = shift;

Gruß Alex