my $self=shift;
my ($foo, $bar, $baz)=@_;

##</code><code>##

my ($self $foo, $bar, $baz)=@_; # would be just as fine.

##</code><code>##

my $param_one=shift;