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

##</code><code>##

sub some_method {
   my $self = shift;
   my ($foo, $bar, @baz) = @_;
  ...;
}

##</code><code>##

around some_method => sub {
   my ($orig, $self) = (shift, shift);
   my ($foo, $bar, @baz) = @_;
  ...;
};

##</code><code>##

sub mygrep {
   my $code = shift;
   my (@items) = @_;
  ...;
}