use Scalar::Util qw( looks_like_number );
if( ! looks_like_number( $VAR1 ) ) {
  do something...
}