open (F1,"f1.txt");
open (F2,"f2.txt");

while (<F1>){
$HASH{$_}++;
}
close(F1);

while (<F2>){
$HASH{$_}++;
}

foreach $line (sort keys %HASH){
print "$line\n" if ($HASH{$line}>1);
}