my $s1 = join $stop_character1, @array1;
  my $s2 = join $stop_character2, @array2;
  lcss($s1, $s2);