There is a bug in your code, we should check the number of
keys before we do the for loop, cause if I change the $strings to
my @strings=("ss,~cake,pastry","pastry,~cake","cake,pastry");

It'll output :String 1 matches 0!
---

just my 2 cents,
thanks,
huajian