I must be terribly confused - but from what I can decode in your program, it does nothing like what you described as your goal? Perhaps you can post a short example file, or explain more what you're trying to do?

Since I can't understand what you're trying to do, I'll just give you the one tip - whenever you find yourself using variables like $header1...$header7, you probably will be better off using an array @headers. Or, if this is really your whole program, all the headers could be put in a single scalar $header.