sub cleararray
{
  my $class = shift; # ignored
  my $radiovar = shift;
  ...
}
# then call as:
PATTERNS->cleararray($someRadioVar);

##</code><code>##

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