sub foo {
  my $bar = shift;
  my %baz = @_;
  ...
}

##</code><code>##

sub foo($bar, %baz) {
  ...
}