while (defined(my $lineA = <FILE_A>) && defined(my $line_b = <FILE_B>)) {
...
compare_line(lineA=$lineA, lineB=$lineB);
...
}