perlscript til at sammenligne to text filer

Prøv med det her:

#!/usr/bin/perl
open(ORDLISTE1, "ordliste1.txt") || die;
open(ORDLISTE2, "ordliste2.txt") || die;
open(FORSKELLE, ">forskelleliste.txt") || die;

@ordliste1 = <ORDLISTE1>;
@ordliste2 = <ORDLISTE2>;
@forskelle = ();
foreach $l1 (@ordliste1)
{
    $found = 0;
    foreach $l2 (@ordliste2)
    {
        if($l1 eq $l2)
        {
            $found = 1;
        }
    }
    unless($found)
    {
        push(@forskelle, $l1);
    }
}
foreach $l2 (@ordliste2)
{
    $found = 0;
    foreach $l1 (@ordliste1)
    {
        if($l1 eq $l2)
        {
            $found = 1;
        }
    }
    unless($found)
    {
        push(@forskelle, $l2);
    }
}

print FORSKELLE @forskelle;
close(ORDLISTE1);
close(ORDLISTE2);
close(FORSKELLE);