if ($type eq 'VARCHAR') {
   if ($arg eq '')             { $sql = $type; }
   elsif ($arg =~ /^[0-9]+\z/) { $sql = "$type($arg)"; }
   else { die }
}
elsif ($type eq 'CHAR') {
   if ($arg eq '')             { $sql = $type; }
   elsif ($arg =~ /^[0-9]+\z/) { $sql = "$type($arg)"; }
   else { die }
}
...
else {
   die
}