use strict;
require Algorithm::Diff;

my @seq1 = qw(1 2 3 4 6);
my @seq2 = qw(1 2 4 5 6);
 
my $diff = Algorithm::Diff->new( \@seq1, \@seq2 );