use Scalar::Util ();


... Scalar::Util::looks_like_number($x) ...