my @matches = grep { ",$Array[$_]," =~ /,\Q$VarString\E,/i } 0..$#Array;