my @a= qw( a b c   e  h j   l m n p       );
    my @b= qw(   b c d e f  j k l m     r s t );
    my $diff= easy( \@a, \@b );
    while(  @$diff  ) {
        my( $same, $aMin, $aMax, $bMin, $bMax )=
            splice @$diff, 0, 5;
        my $a= join "", @a[$aMin..$aMax];
        if(  $same  ) {
            print $a;
        } else {
            print "<s>$a</s>"   if  "" ne $a;
            my $b= join "", @b[$bMin..$bMax];
            print "<b>$b</b>"   if  "" ne $b;
        }
    }