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