Select Code to Download

 ...
 use String::LCSS_XS qw(lcss);
...
 my ($pa, $pb) = map 1+$_/8, @longest[1,2];
 print "\na's pos # $pa alingns to b's pos # $pb\n";
 ...

 6,7,9
 a's pos # 4 'aligns' to b's pos # 2