#! perl -slw
use strict;
use String::LCSS_XS qw[ lcss ];

my %data;
while( <DATA> ) {
    chomp;
    my @cols = split ' ';
    push @{ $data{ $cols[ 0 ] } }, pack 'C*', @cols[ 1 .. $#cols ];
}

my @keys = sort{ $a <=> $b } keys %data;
for my $i ( 0 ..$#keys ) {
    my $key1 = $keys[ $i ];
    for my $keyset1 ( @{ $data{ $key1 } } ) {
        for my $key2 ( @keys[ $i+1 .. $#keys ] ) {
            for my $keyset2 ( @{ $data{ $key2 } } ) {
                my( $s, $i1, $i2 ) = lcss( $keyset1, $keyset2 );
                printf "%4d(%4d) - %4d(%4d) : %s\n",
                    $key1, $i1, $key2, $i2,
                    join ', ', unpack 'C*', $s;
            }
        }
    }
}

__DATA__
12    1   2   1      2   1      1   1   1
12    2   1   2      2   1      1   1   1
15    2   1   2      2   1      1   1   1
15    2   1   2      1   1      2   1   1
16    2   1   2      1   1      2   1   1
16    2   1   2      2   1      1   1   1
19    2   1   2      1   1      2   1   1
19    1   2   1      2   1      1   1   1
116   1   2   2      2   1      1   1   1
116   2   1   2      1   1      2   1   1