my %checkers =
   map {; no strict 'refs'; $_ => \&$_ }
      qw( check_char check_time check_date check_numeric );