use strict;

use Algorithm::LCSS qw( LCSS );
use Data::Dump qw /dump/;

my @first_sequence  = (1,2,3,6,7,9,1,-7,2,6);
my @second_sequence = (7,6,7,9,12,-22,-3);

my $lcss_ary_ref = LCSS( \@first_sequence, \@second_sequence );

{local $" = ','; print "The aligned sequence is @$lcss_ary_ref\n";}