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