Hey

You can use array union, intersection & diffrence hope this might
help you..here is the sample code

    @union = @intersection = @difference = ();
    %count = ();
        foreach $element (@Array, @lArray) { $count{$element}++ }
        foreach $element (keys %count) {
        push @union, $element;
        push @{ $count{$element} > 1 ? \@intersection : \@difference }
+, $element;
        }

    foreach $int (@difference){
        if ($int ne ";"){
            @fname = split(/;/, $int);
            print "\n difference elements --> $fname[0]\n";
        }
    }
[download]

Sridhar