Perl

bonjour j'apprend perl
j'ai un pb je dois comparer des ligne de deux fichiers et des que l'on trouve une ligne egalle j'ecris la line en sorti

open(F,'fichier.txt') ;
open(F2,'fichier2.txt);

while($ligne =<F> ) /* je fais passer les lignes une par une du ficher */
{
while($ligne2 = <F2>)
{
/** c'est ici ou j'ai le pb **/
if($ligne1 = $ligne2)
{
print ' ligne 1' ;
}
close F ;
close F2 ;

je veux donc en sorti une ligne commune aux deux fichiers.

merci