Thanks for everyone's help. Actually cleararray is a little misleading. I need an array of zeros to get the program to fall through graphically. Is there a better algorithm to handle just that?
john
Faster, faster, faster....till the thrill of speed overcomes the fear of death -Daniel Keys Moran
# populate the array with zeroes
sub cleararray
{
my ($class, $radiovar) = @_;
my @array;
push @array, [ (0) x $radiovar ] for 1 .. $radiovar;
return \@array;
}