Select Code to Download

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

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