sub cleararray{
#code
}

##</code><code>##

cleararry($radiovar);

##</code><code>##



sub clear_array{
    my($self, $var) = @_;
    my @array;
    for(my $i = 0; $i < $var; $i++){
           for(my $j = 0; $j < $var; $j++){
                  $array[$i][$j] = 0;
           }
    }
    return @array;
}

##</code><code>##

my $leroy = patterns->new(); #or my $leroy = new patterns;
@array_to_be_cleaned = $leroy->clear_array($radioval);