if ($array_H[$i] !~ /^[0-9]+$/) 

{

block;
}