use Algorithm::Diff qw(diff LCS trverse_sequences);
@lcs = LCS(\@seq1, \@seq2, $comparison_function);
@diffs = diff(\@seq1, \@seq2, $comparison_function); traverse_sequences(\@seq1, \@seq2, { MATCH => $callback, DISCARD_A => $callback, DISCARD_B => $callback, }, $comparison_function);
Visit my diff/LCS web page at http://www.plover.com/~mjd/perl/diff/.