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