#!/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";
}

##</code><code>##

Array are different