sub foo {
    my $self = shift;
    return $self->[ $self->[0] + $foo_offset ];
}