open FILE1, $file1 or die $!;
open FILE2, $file2 or die $!;

while (defined(my $line1 = <FILE1>) and defined(my $line2 = <FILE2>)) {
    doAnything($line1, $line2);
}