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