# populate the array with zeroes

sub cleararray
{
    my ($class, $radiovar) = @_;
    my @array;
    push @array, [ (0) x $radiovar ] for 1 .. $radiovar;
    return \@array;
}
[download]