if ($array_A[$i] =~ /^$+[0-9]+$/)