use List::Compare;

## Al being the referenced list compare to others
@Al     = qw(abel abel baker camera delta edward fargo golfer jerky);
@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);

my %list = (0 => 'Al', 1 => 'Bob', 2 => 'Carmen', 3 => 'Don', 4 => 'Ed');
$lcm = List::Compare->new(\@Al, \@Bob, \@Carmen, \@Don, \@Ed);
if (@intersectionAll = $lcm->get_intersection) {
 $all = (@intersectionAll);
}
for (my $j = 1; $j < 5; ++$j) {

   $lcm0 = List::Compare->new(\@{$list{0}}, \@{$list{$j}});
   $intername = "intersection-0-$j";
if (@{$intername} = $lcm0->get_intersection) {
 ${"count-$intername"} = (@{$intername});
}
}
## howto get keywords count which are in 2 lists, 3 lists, ... ?

my $out = "";
for (my $k = 1; $k < 5; ++$k) {
        $out .= "count-$list{$k}:".${"count-intersection-0-$k"}." ";
}
$out .= " all:$all\n";
print $out;

##</code><code>##

count-Bob:6 count-Carmen:3 count-Don:2 count-Ed:2 count2+:0 count3+:2