while (<FILE>) {
        $line = <FILE>;
        ...
    }
    close(FILE);
[download]

The <FILE> reads one line of the file each time. So with that code, $line is set with the data of only one line where two are read...

You should use

:

    my $line
    while ($line = <FILE>) {
        ...
    }
    close(FILE);
[download]

HTH