if ($array_A[$ds] =~ /Test/)