Your narrative is hard to interpret (my WAG is that you want to keep a count of the nmumber of $entyourname in the various <c>$entyourposv and close the program when some one of those reaches a predetermined count). Think hash.

Just as bad is the fact that your code won't compile: what makes you think "colored" or "cls()" are recognized/used by Perl?. Please do not post uncompilable code unless your question is specifically about why it won't compile and/or the associated error message.

And... I've lost count of the times where you've posted what appear to be primer level questions without any visible attempt to solve your own problems. It's really time to try to learn something instead of cadging solutions for your school, hobby or (Heaven Forefend) $job.