Without you showing any input data, actual output data and expected data, it is hard to give specific advice. After neatening up your code with perltidy, one really suspicious line is:

        foreach ($line2) {
[download]

Since $line2 is a scalar, the foreach loop will only loop (at most) once.

Generic advice:

• use strict and warnings
• Start debugging your code by adding more prints (Basic debugging checklist)