Here is one way:

use warnings;
use strict;

while (<>) {
    my $line1 = $_;
    my $line2 = <>;
    # compare 1 and 2
}
[download]