if ($array_H[$i] =~ m/\D/ ) 
{
    block;
}