sub foo (\$\@\%) {
  my ( $bar, @baz, %something ) = @_;
}