The answer was so obvious, I should have tried substituting letters for numbers to see if it works. uuurrrggh.

Thanks. This is part of my first real program in Perl. My only experience is in BasicV and HyperTalk. So this is a new world for me.