use Scalar::Util qw(looks_like_number);
if (looks_like_number($your_number)) { 
    do something;
}