sub foobar {
  my %args = @_;
  my $foo = $args{foo};
  my $bar = $args{bar};
}