Just to throw some TMTOWTDI in .. you could also use Tie::File to read from the files; that way, you could read through the inner file without having to rewind. Then again, it also looks like you could just load the files into data structures once, then figure stuff out by looking at the structures.