# args: self, index, value
sub STORE {
    my ($self, $index, $value) = @_;
    $self->[$index] = $value;
}