Here's a simple example of List::Compare:

use List::Compare;

my $lol = [ [ 3, 4, 5, 6 ],
            [ 4, 5, 6, 7 ],
            [ 5, 6, 7, 8 ] ];

my $lc = List::Compare->new( @{$lol} );

my  @intersection = $lc->get_intersection;

print "$_\n" for @intersection;
[download]