sub foo {
   my %foo = @_;
   print($foo{bar}, "\n");
}