use strict;
use warnings;
use Data::Dumper;

my @array1 = qw(l a r g e s t
   c o m m o n s e q u e n c i
   a l s u b s e t
);

my @array2 = qw(w h a t i s t
   h e l a r g e s t s e q u e
   n c i a l
);

my @array3 = qw(w h a t l a r
   g s e q c o m m o n
);

my @array4 = qw(w h a t l a r
  g s e q c o m m o n s e q u e
  n c i a l
);

my @array5 = qw( a b c d e f g h i j 
k l m n o p q r s t u v w x y z 
);

my @array6 = qw( a b c X f g h X l m 
n X j k a b c d 
);

print Dumper LCCOS(\@array1,\@array2);
print Dumper LCCOS(\@array2,\@array3);
print Dumper LCCOS(\@array3,\@array1);
print Dumper LCCOS(\@array1,\@array1);
print Dumper LCCOS(\@array2,\@array4);
print Dumper LCCOS(\@array5,\@array6);