sub is_numeric{ use POSIX (); !(POSIX::strtod($_[0]))[1]; }