sub is_numeric {
  local $_=shift;
  return if not defined $_;
}