waytoperl, as you can tell you're getting very varied responses depending on different interpretations of what you've posted here. What is missing is the full output, specifically that of print "$number4\n";, as well as a sample of the input data. Please read and follow the advice in How do I post a question effectively?