Select Code to Download

sub cleararray {
    my $self = shift;
...
        }
    }
}

sub radiovar {
    my ( $self, $newval ) = @_;
...
    $self->{'array'} = $newval if defined( $newval );
    return $self->{'array'};
}

package X;
...
...
   $radiovar = $newval if defined( $newval );
   return $radiovar;
}