Select Code to Download

package Foo;
{
...
  }
  sub getname { return $foos[${$_[0]}]->{name}; }
}

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

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