Perl – Compare Array Contents when length is identical and order matches



Comparing arrays side by side. Do they match or dont they?
@a=(1,0,1,0,0);
@b=(0,0,1,0,0);

NO!

@arr1=(0,1,1,1,1,1,0,1);
@arr2=(0,1,1,1,1,1,0,1);

use Algorithm::Diff qw( LCS_length);
my $arr_count1 = @arr1;
my $arr_count2 = @arr2;

if($arr_count1 != $arr_count2) {
print “NOMATCH\n”; ## NO MATCH
} else {
$count = LCS_length (\@arr1,\@arr2);
if ($arr_count1 eq $count) {
print “MATCH\n”; ## identical arrays
} else {
print “NOMATCH\n”; ## NO MATCH
}
}