sub new {
    my $class = shift;
    my $id  = bless [] => $class;
    $foo{$id} = undef;
    $bar{$id} = undef;
    # ...    
    $id;
}