sub foobar {
  my ($foo, $bar) = @{{@_}}{qw/foo bar/}; #the @{{}}{} logic
}