if ($array[$i] =~ /\d+/){
     <your code>
 }

##</code><code>##

>perl -wMstrict -le
"print 'this is a number?!?' if 'x9x' =~ /\d+/;
"
this is a number?!?