my ($foo, $bar) = @{shift(@_)}{qw/ -foo -bar /};