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