Your code makes no sense. Please, as pleaded previously, try to provide a
SSCCE.
- Array::Comapre is not Array::Compare.
- $@array1[$l] causes a syntax error.
- Without the context, we have no idea what the values of all the variables are.
But, if I run the following code:
#!/usr/bin/perl
use strict;
use warnings;
use feature qw{ say };
use Array::Compare;
my $comp = Array::Compare->new;
my @array1 = qw( 999991 999992 999993 999994 );
my @array2 = qw( 999991 999992 999993 999994 999995 );
if ($comp->compare(\@array1, \@array2)) {
say "Arrays are the same";
} else {
say "Arrays are different";
}
I'm getting
Array are different
as expected.
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]