package Foo;
{
  my @foos;
  sub new {
    push @foos,{ name => $_[1] };
    my $obj = $#foos;
    return bless \$obj, $_[0];
  }
  sub getname { return $foos[${$_[0]}]->{name}; }
}

##</code><code>##

sub DESTROY { $foos[${$_[0]}] = undef; }

##</code><code>##

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