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