#!/usr/bin/perl

use Algorithm::Diff qw(diff LCS);
use strict;

my @seq1 = ("A".."N");
my @seq2 = ("F".."Z");
my @diff = ();
my @lcs = ();
if (@diff = diff( \@seq1, \@seq2 ))  { }
# Not equal
# Same for (@lcs = diff( \@seq1, \@seq2 ))