sub radiovar {
    my ( $self, $newval ) = @_;

    $self->{'radiovar'} = $newval if defined( $newval );

    return $self->{'radiovar'};
}

sub array {
    my ( $self, $newval ) = shift;
    $self->{'array'} = $newval if defined( $newval );
    return $self->{'array'};
}