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