$count[$i]++ if /$patterns[$i]/;