if ($clnm) {
  @parts = split /,/,$clnm;
  map { m/\'\w\'/ ? push @pre, $_ : push @words, $_ } @parts;