Select Code to Download

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

shift(@_)
  # get an element from the parameter list
...
my ($foo, $bar) = @{ shift(@_) }{ qw/ -foo -bar / };
  # assign the two element list retrieved into $foo and $bar

foobar({ -foo => 'FOO', -bar => 'BAR' });

...
    my ($foo, $bar) = @{shift(@_)}{qw/ -foo -bar /};
    print "\$foo => $foo, \$bar => $bar\n";
}