my ($foo, $bar, %arg) = @_;
my ($baz, $quux) = @arg{qw(baz quux)};