@Al     = qw(abel abel baker camera delta edward fargo golfer);
@Bob    = qw(baker camera delta delta edward fargo golfer hilton);
@Carmen = qw(fargo golfer hilton icon icon jerky kappa);
@Don    = qw(fargo icon jerky);
@Ed     = qw(fargo icon icon jerky);

$lcm = List::Compare->new(\@Al, \@Bob, \@Carmen, \@Don, \@Ed);
@intersection = $lcm->get_intersection;

Example 1: Using List::Compare in multiple mode.