perl : acceder a une ligne du fichier

Bonjour tout le monde,
Voila mon probleme, je lis 2 fichiers dans mon programme et je voudrai les lire en meme temps, c'est a dire :
ligne1 fichier 1
ligne1 fichier2
ligne2 fichier 1
ligne2 fichier2
pour l'instant ce que je fais c'est recuperer le numero de ligne ds la boucle while(<fichier1> ), et a l'interieur de la boucle while(<fichier2> ) qui se trouve a l'interieur de la premiere boucle j'utilise la condition :if ($.==$ligne). Mais comme mes fichiers sont tres volumineux le programme tourne longtemps et j'aimerai reduire le temps d'execution. Existe-t-il un moyen de lire directement a une ligne precise du fichier ?
Merci d'avance pour votre aide

Si j'ai bien compris on peut lire deux fichiers en meme temps, c'est bien ca ? c'est quoi la syntaxe ? while(<file1>,<file2> ) ? et dans ce cas la, comment tu recupere les deux lignes, je suppose que $_ marche pas dans ce cas la.
Merci de m'apporter quelques precisions