if ($array_A[$ds] =~ /test/i)