Как в Perl я могу читать из нескольких файловых дескрипторов за один цикл?

Мне было интересно, как я могу реализовать это на Perl:

while ( not the end of the files )
    $var1 = read a line from file 1
    $var2 = read a line from file 2
    # operate on variables
end while

Я не уверен, как читать по одной строке из двух файлов за один цикл while.