mysub(foo => 0, bar => 1, baz => undef);

sub mysub {
  my %defaults = qw(foo 9 bar 8 baz 7);
  my %args = (%defaults, @_);
  print "Foo: $args{foo}, Bar: $args{bar}, Baz: $args{baz}\n";
}