sub cleararray {
    my $self = shift;
    for ( $i = 0; $self->radiovar(); $i++ ) {
        for ( $j = 0; $self->radiovar(); $j++ ) {
            @{$self->array()}[$i][$j] = undef;
        }
    }
}