sub cleararray {
    my $self = shift;
    @{$self->array()}[$_] = [(0) x @{$self->array()}]
           for 0 .. @{$self->array()} - 1;
}