sub usesfoo {
  my ($name,$population) = @_;
  my $foo = new Foo($name);
  my %ret = { name => $name,
              pop  => $population,
              foo  => $foo };
  return \%ret;
}