use Scalar::Util qw(looks_like_number);

 for(qw(1 perl 25 monks)){
   looks_like_number $_ ? print $_," is a Number",$/ 
                        : print $_," is not a Number",$/;
 }