sub cleararray
{
  my $radiovar = shift;
  ...
}
# then call as:
cleararray($someRadioVar);