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