sub foo {
  my %defaults = ( qw( foo 9 bar 8 baz 7 ) );
  my %args = ( %defaults, @_ );

  ...
}