Select Code to Download

sub cleararray{
#code
}

cleararry($radiovar);

...
    }
    return @array;
}

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