#!/usr/bin/env perl

use strict;
use warnings;

use List::Util qw(shuffle);
use Array::Compare;

my @array1 = shuffle(1..100);
my @array2 = shuffle(@array1);

my $comp = Array::Compare->new;

print "perm:    ",
      $comp->perm(\@array1, \@array2) ? "Same elements\n"
                                      : "Different elements\n";

print "compare: ",
      $comp->compare(\@array1, \@array2) ? "Same elements, same order\n"
                                         : "Different elements or different order\n";

##</code><code>##

perm:    Same elements
compare: Different elements or different order