my %counts;
my @commons = grep { ++$counts{$_} == @s }
              map { my %seen; $seen{$_}++ for /./sg; keys %seen } @s;