for my $i (0 .. $#regexes) {
	my $regex = $regexes[$i];
	++$tally[$i] while $xml =~ /$regex/g;
}