foo($bar,$baz,@qux);

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