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