hmmm... I'm going to have to give this code a lot of thought. I seem to have a problem thinking this way and the way I wrote it it just seemed to flow better in my mind. I'll see if I can't think through your code, even thow I can understand any given statement in your example, over all I need to do some reflecking on it to really see whats going to. On one note, the reason I took my input from STDIN is it seems to me that is what the problem called for and I wanted to keep to the rules of the problem. In all honesty thow, I guess it doesn't really matter since I'm just doing it for learning perposes anyway
learning Perl one statement at a time.