if $array[$i] =~ /^\d+$/ {
<block of code>
}